I use this code to logon and upload files to my server.

Public Function ftp_file(ByRef username As String, ByRef password As String, ByRef server_file As String, ByRef local_path_file As String)
Try
Dim request As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(server_file), System.Net.FtpWebRequest)
request.Credentials = New System.Net.NetworkCredential(username, password)
request.Method = System.Net.WebRequestMethods.Ftp.UploadFile
Dim file() As Byte = System.IO.File.ReadAllBytes(local_path_file)
Dim strz As System.IO.Stream = request.GetRequestStream()
strz.Write(file, 0, file.Length)
strz.Close()
strz.Dispose()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function