How validate credentials to connect ftp -Como validar las credenciales para conectarse a un ftp

Private Sub ValidateFtp()
Dim dir As String = txtDireccionFtp.Text.Trim
Dim user As String = txtUsrFtp.Text.Trim
Dim pass As String = txtClaveFtp.Text.Trim
Dim peticionFTP As FtpWebRequest
Dim Script As String
' Creamos una peticion FTP con la dirección del objeto que queremos saber si existe
Try
peticionFTP = CType(WebRequest.Create(New Uri(dir)), FtpWebRequest)Catch
Script = "alert('Ruta ftp incorrecta');"
ClientScript.RegisterStartupScript(Me.GetType, "scriptSinDatos", Script, True)
Exit Sub
End Try
' Fijamos el usuario y la contraseña de la petición
peticionFTP.Credentials =New NetworkCredential(user, pass)
'Para saber si el objeto existe, solicitamos la fecha de creación del mismo

peticionFTP.Method = WebRequestMethods.Ftp.PrintWorkingDirectory

peticionFTP.UsePassive = False
Try
Dim respuestaFTP As FtpWebResponse
respuestaFTP = CType(peticionFTP.GetResponse(), FtpWebResponse)
Script = "alert('Credenciales y ruta ftp correctas');"

ClientScript.RegisterStartupScript(Me.GetType, "ftpValida", Script, True)
respuestaFTP.Close()

peticionFTP.Abort()


Catch ex As Exception

Script =
"alert('Credenciales incorrectas');"

ClientScript.RegisterStartupScript(Me.GetType, "ftpInvalida", Script, True)
 
End Try

End Sub