Dim A As Variant
 
  If Right(Txt128, 1) = "@" Then
     'Hier haben wir die Information
  Else
    A = Split(Txt128, " ")
    ReDim info(14)
    N = 0
    For i = 0 To UBound(A) - 1
      If A(i) <> " " Then
        info(N) = A(i)
        N = N + 1
      End If
    Next
    ' Für CSV , vorher ein Output/Append-File aufmachen
    For i = 0 To N - 2
      Print #AusgabeFile, info(i) + ",";
    Next
    Print #AusgabeFile, info(N - 1)
  End If

dbayerTo be is to do (Rene Descartes)To do is to be (Kant / Nietzsche / Sartre u.a.)Do be do be dooo (Frank Sinatra, Strangers in the Night)