Dim F As Integer
Dim sInhalt As String
Dim sPos As Long
Dim ePos As Long
 
F = FreeFile
Open "Maildatei" For Binary As #F
sInhalt = Space$(Lof(F))
Get #F, , sInhalt
Close #F
 
sPos = InStr(sInhalt, "Name: ")
If sPos > 0 Then
  ePos = InStr(sPos + 1, sInhalt, vbCrLf)
  sName = Mid$(sInhalt, sPos + 6, ePos - sPos - 6)
End If
 
MsgBox "Name lautet: " & sName