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.XXX.it/prova.txt", "C:\prova.txt", "XXX@aruba.it", "XXX")
        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(UName, 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