Dim request As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create("ftp://nome do host e caminho"), System.Net.FtpWebRequest)
request.Credentials = New System.Net.NetworkCredential("usuario", "senha")
request.Method = System.Net.WebRequestMethods.Ftp.UploadFile
Dim file() As Byte = System.IO.File.ReadAllBytes("caminho do arquivo")
Dim strz As System.IO.Stream = request.GetRequestStream()
strz.Write(file, 0, file.Length)
strz.Close()
strz.Dispose()