Dim No As Integer, strLine As String, strCompareTo As String
  Dim bolSuccess As Boolean
  ' setzt Benutzername und Passwort für Vergleich zusammen
  strCompareTo = txtUsername.Text & ";" & txtPassword.Text
  No = FreeFile
  ' Datei öffnen
  Open "C:\login.txt" For Input As #No
  ' Schleife bis Dateieende
  While Not EOF(No)
    ' Zeile einlesen
    Line Input #No, strLine
    ' vergleichen
    If strLine = strCompareTo Then
      bolSuccess = True
    End If
  Wend
  ' Datei schließen
  Close #No
  If bolSuccess Then
    MsgBox "Erfolg"
  End If

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.