Protected Sub cmdUpload_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdUpload.Click
    'On button Click call the function 
    'and Pass Parameter Values
    'Display Message on Success
        uploadFileUsingFTP("ftp://ftp.giscotechdev.com/ftp1.txt", "C:\prova\ftp.txt")
    lblMsg.Text = "File Uploaded Successfully :)"
  End Sub

  Public Sub uploadFileUsingFTP(ByVal CompleteFTPPath As String, ByVal CompleteLocalPath As String, Optional ByVal UName As String = "", Optional ByVal PWD As String = "")
    'Create a FTP Request Object and Specfiy a Complete Path 
    Dim reqObj As FtpWebRequest = WebRequest.Create(CompleteFTPPath)
    'Call A FileUpload Method of FTP Request Object
    reqObj.Method = WebRequestMethods.Ftp.UploadFile
    'If you want to access Resourse Protected You need to give User Name and PWD
        reqObj.Credentials = New NetworkCredential("USER", "PWD")
    'FileStream object read file from Local Drive
    Dim streamObj As FileStream = File.OpenRead(CompleteLocalPath)
    'Store File in Buffer
    Dim buffer(streamObj.Length) As Byte
    'Read File from Buffer
    streamObj.Read(buffer, 0, buffer.Length)
    'Close FileStream Object Set its Value to nothing
    streamObj.Close()
    streamObj = Nothing
    'Upload File to ftp://localHost/ set its object to nothing
    reqObj.GetRequestStream().Write(buffer, 0, buffer.Length)
    reqObj = Nothing
  End Sub