Public Sub UploadFile(ByVal filepath As String, ByVal filename As String)
        Dim clsRequest As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(FtpHost & filename), System.Net.FtpWebRequest)
        clsRequest.Credentials = New System.Net.NetworkCredential(FtpUser, FtpPassword)
 
        clsRequest.Method = System.Net.WebRequestMethods.Ftp.UploadFile
 
        Dim bFile() As Byte = System.IO.File.ReadAllBytes(filepath & "\" & filename)
 
 
        Dim clsStream As System.IO.Stream = clsRequest.GetRequestStream()
        clsStream.Write(bFile, 0, bFile.Length)
        clsStream.Close()
        clsStream.Dispose()
    End Sub

Specify the FTP command to send to the server by setting the Method property to a value defined in the WebRequestMethods.Ftp structure. To transmit text data, change the UseBinary property from its default value (true) to false. For details and restrictions, see Method. 
When using an FtpWebRequest object to upload a file to a server, you must write the file content to the request stream obtained by calling the GetRequestStream method or its asynchronous counterparts, the BeginGetRequestStream and EndGetRequestStream methods. You must write to the stream and close the stream before sending the request. 
Requests are sent to the server by calling the GetResponse method or its asynchronous counterparts, the BeginGetResponse and EndGetResponse methods. When the requested operation completes, an FtpWebResponse object is returned. The FtpWebResponse object provides the status of the operation and any data downloaded from the server.
You can set a time-out value for reading or writing to the server by using the ReadWriteTimeout property. If the time-out period is exceeded, the calling method throws a WebException with WebExceptionStatus set to Timeout.
When downloading a file from an FTP server, if the command was successful, the contents of the requested file are available in the response object's stream. You can access this stream by calling the GetResponseStream method. For more information, see FtpWebResponse.