Private Sub cmdPrüfePasswort(Benutzername as String)
                      Dim Passwort as String, B as Long
                      Passwort = txtPasswort.Text
                      B = WNetVerifyPassword(Benutzername, Passwort)
                      Select Case B
                               Case "1"
                                       MsgBox Prompt:="Password korrekt!"
                               Case "-1"
                                       MsgBox Prompt:="Passwort falsch! Neue" & _
                                         "Eingabe!"
                                       Exit Sub
                      End Select
End Sub

Loki