How to upload file on ftp server?

Private Sub Upload(ByVal filePath As String, ByVal fileName As String)


        ftpServerIP = "192.160.0.10/Employee Documents"
        ftpUserID = "h"
        ftpPassword = "Har"

        Dim reqFTP As FtpWebRequest
        Try
            'filePath = <<The full path where the file is to be created.>>,
            'fileName = <<Name of the file to be created(Need not be the name of the file on FTP server).>>
            Dim outputStream As New FileStream(filePath + "\" + fileName, FileMode.Create)

            reqFTP = DirectCast(FtpWebRequest.Create(New Uri("ftp://" + ftpServerIP + "/" + fileName)), FtpWebRequest)
            reqFTP.Method = WebRequestMethods.Ftp.AppendFile
            reqFTP.UseBinary = True
            reqFTP.Credentials = New NetworkCredential(ftpUserID, ftpPassword)
            Dim response As FtpWebResponse = DirectCast(reqFTP.GetResponse(), FtpWebResponse)
            Dim ftpStream As Stream = response.GetResponseStream()
            Dim cl As Long = response.ContentLength
            Dim bufferSize As Integer = 2048
            Dim readCount As Integer
            Dim buffer As Byte() = New Byte(bufferSize - 1) {}

            readCount = ftpStream.Read(buffer, 0, bufferSize)
            While readCount > 0
                outputStream.Write(buffer, 0, readCount)
                readCount = ftpStream.Read(buffer, 0, bufferSize)
            End While

            ftpStream.Close()
            outputStream.Close()
            ' MessageBox.Show("Download Complete");
            response.Close()
        Catch ex As Exception
            'MessageBox.Show(ex.Message)
        End Try
    End Sub