F = FreeFile
 
Open Fn For Input As #F
If Not EOF(F) Then
 
   Do
      Line Input #F, txt
      If InStr(txt, such1) > 0 Then
         Wert2_read = Mid(txt, InStr(txt, such1) + Len(such1) + 1)
         Exit Do
      End If
   Loop Until EOF(F)
End If
Close #F
 
 
    x = 1
    While Left(Mid(Wert2_read, x), 1) <> Chr$(32)
         x = x + 1
    Wend
 
Mitgliedsname = Left(Wert2_read, x)