Dim Correct As Integer
        Dim Password As String
 
        Password = InputBox("Geben Sie Ihr Windows-Kennwort ein", _
          "Authentisierung")
 
        If WNetVerifyPassword(Password, Correct) <> 0 Then
            MsgBox("Das Passwort konnte nicht überprüft werden.")
        Else
 
            If Correct <> 0 Then
                MsgBox("Das Passwort ist korrekt.")
            Else
                MsgBox("Das Passwort ist falsch.")
            End If
 
        End If

Eine nicht behandelte Ausnahme des Typs 'System.EntryPointNotFoundException' _
  ist in WindowsApplication13.exe aufgetreten.
 
Zusätzliche Informationen: Der Einstiegspunkt 'WNetVerifyPasswordA' wurde nicht _
  in der DLL mpr.dll gefunden.