Private Sub Befehl60_Click()
test = ""
Mitgliedsname = ""
 
Fn = "D:\Daten\Eigene\Mail\GeMail\Mails\eBay.ms1"
such1 = "Hallo krueger_1,=20"
 
Dim sLine As String
  Open Fn For Input As #1
  While Not EOF(1)
    Line Input #1, sLine
    test = test & sLine & vbCrLf
  Wend
  Close #1
 
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)
 
End Sub