Private Sub RenameFileName(ByVal currentFilename As String, ByVal newFilename _
   As String)
        FTPSettings.IP = "IP"
        FTPSettings.UserID = "USER ID"
        FTPSettings.Password = "PASSWORD"
        Dim reqFTP As FtpWebRequest = Nothing
        Dim ftpStream As Stream = Nothing
        Try