Public Funtion GetBetreff(ByVal sDatei As String) As String
Dim sText As String
Dim lNum As Long
Dim lNum2 As Long
sText=TextRead(sDatei) 
lNum=InStr(1,sText,"Betreff:")
If lNum=0 Then Exit Function
lNum=lNum+8
'Annahme: Der Betreff endet mit einem <Enter>
lNum2=InStr(lNum,sText,vbCrLf)
If lNum2=0 Then Exit Function
GetBetreff=Mid(sText,lNum,lNum2-lNum)
End Function