Dim sName As String
Dim sPPwd As String
 
sName = Text1.Text
sPwd = Text2.Text
 
If GetIniString(sName, "Passwort", sPwd, "MyIniFile.ini") = sPwd Then
  MsgBox "Jepp - korrekt!"
End If

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de