Private Sub Command1_Click()
    MsgBox GetVar("C:\testfile.txt", "blablabla", 5)
    '1. Parameter: Pfad zur Textdatei
    '2. Parameter: Das zu suchende Wort
    '3. Parameter: Der Abstand zwischen dem Ende des zu suchenden Wort und dem 
    ' Anfang der gesuchten Variable
End Sub
 
Private Function GetVar(Pfad As String, Suchwort As String, Abstand As Long) As _
  String
    Dim F, Text As String, strInput As String, Pos As Integer, Found As _
    Boolean, _
    GleichPos As Integer
    F = FreeFile
 
    Open Pfad For Input As #F
 
    Do While Not EOF(F)
        Line Input #F, strInput
        Pos = InStr(1, strInput, Suchwort)
        If Pos > 0 Then
            Found = True
            Exit Do
        End If
    Loop
 
    If Found = True Then
        Pos = Pos + Len(Suchwort) + Abstand
        GleichPos = InStr(Pos, strInput, "=")
        If GleichPos <= 0 Then
            GetVar = "Suchwort gefunden, aber das " & Chr$(34) & "=" & Chr$(34) _
              & " danach fehlt!"
            Exit Function
        Else
            GleichPos = GleichPos + 1
            GetVar = "'" & Mid$(strInput, Pos, GleichPos - Pos) & "'"
        End If
    Else
        GetVar = "Suchwort nicht gefunden!"
    End If
End Function