Vb 2005 ftp ssl

Imports System.Net
Imports System.IO
Imports System.Security.Cryptography.X509Certificates
'System.Net.FtpWebRequest.EnableSsl

Public Class Form1

Private Sub Uploader1(ByVal source As String, ByVal target As String, _
ByVal credential As NetworkCredential)
Dim request As FtpWebRequest = _
DirectCast(WebRequest.Create(target), FtpWebRequest)
Dim tempCert As X509CertificateCollection

request.Method = WebRequestMethods.Ftp.UploadFile
request.Credentials = credential
request.EnableSsl = True '***********************

tempCert = request.ClientCertificates
request.ClientCertificates = tempCert

Dim reader As New FileStream(source, FileMode.Open)
Dim buffer(Convert.ToInt32(reader.Length - 1)) As Byte
reader.Read(buffer, 0, buffer.Length)
reader.Close()
request.ContentLength = buffer.Length
Dim stream As Stream = request.GetRequestStream
stream.Write(buffer, 0, buffer.Length)
stream.Close()
Dim response As FtpWebResponse = DirectCast(request.GetResponse, FtpWebResponse)

MsgBox((response.ExitMessage))
response.Close()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim credential As New NetworkCredential("test", "test")
Uploader1("c:\text1.txt", "ftp://put server here/text1.txt", credential)

End Sub
End Class

Try this:
http://pjondevelopment.50webs.com/files/FTPLibrary.zip

Found it using google codesearch:
http://www.google.com/codesearch?hl=en&lr=&q=lang%3Abasic+ftp+ssl

The first one that comes to mind is ipswitch WS_FTP (there is an eval)

http://www.ipswitch.com/products/ws_ftp/index.asp?t=features