Dim ff As Integer
Dim zeile As String
Dim lStart As Long
Dim Wert1_gefunden As Long
Dim Wert1_Ende As Long
 
Dim Parameter1 As String
Dim pfad As String
Dim test As String
 
 
pfad = "C:\regal.txt"
 
 
'öffne Datei
sSuche = 3
 
ff = FreeFile
Open pfad For Input As ff
 
 
'Schleife bis Dateiende
Do While Not EOF(ff)
    ' Lese eine Zeile aus Datei (sTextZeile wird #ff zugeordnet)
    Line Input #ff, zeile
    ' Suche Schlüsselwort Name
    lStart = InStr(1, zeile, sSuche)
    'Wurde Schlüsselwort gefunden?
    If lStart > 0 Then
 
 
        Wert1_gefunden = InStr(1, zeile, Parameter1)
        'und endet vor dem nächsten Leerzeichen
        Wert1_Ende = InStr(Wert1_gefunden, zeile, Chr(34))
 
test = InputBox("Bitte Passwort eingeben:", , Wert1_Ende)
 
End If
Loop