Private Sub Button1_Click()
  If txtHost.Text = "" Then 
    MsgBox "kein Hostname"
    Exit Sub
  ElseIf txtUser.Text = "" Then
    MsgBox "kein Username"
    Exit Sub
  ElseIf txtPW.Text = "" Then
    MsgBox "kein Passwort"
    Exit Sub
  ElseIf txtLocalFile.Text = "" Then
    MsgBox "kein Datei"
    Exit Sub
  ElseIf txtRemoteFile.Text = "" Then
    MsgBox "keine Remote-Datei"
    Exit Sub
  End If
 
  ...
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de