Sub auslesen()
Dim DatNR As Long
Dim Dateiname As String
Dim inhalt As String
DatNR = FreeFile
Dateiname = "mein Pfad zur Datei"
Open Dateiname For Input As DatNR
inhalt = Input(LOF(DatNR), DatNR)
Close DatNR
inhalt = Trim(Split(inhalt, "Node")(1))
If InStr(1, inhalt, "*Extra", vbTextCompare) > 1 Then
inhalt = Trim(Split(inhalt, "*Extra")(0))
End If
inhalt = Replace(inhalt, ",", "")
inhalt = Replace(inhalt, ". ", " ")
MsgBox inhalt
End Sub