dim A as Variant
'in sDataSet ist der Zeichenstring128enthalten
A = Split(sDataSet, " ")
 
'vergessenen Steuercode entfernen ;-)
' Woher der mit einmal kommt ist mir bzgl. meiner Rohdaten noch nicht ganz klar
 A(0) = Replace(A(0), Chr$(13), "")
 
'Korrektur, da 0..13 = 14, habe mich da nicht ganz korrekt ausgedrückt sorry      
ReDim info(13)     
 
    N = 0
    For i = 0 To UBound(A) - 1
 
        'mußte ich erweitern, da die Spaces als "Leerfelder" gesplittet  werden
        If A(i) <> " " And 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)

'Classe "Concat ins projekt einfügen
Option Explicit
 
Private Buffer As String
Private BufferLen As Long
Private Pointer As Long
 
'Auf "Leerstring" setzen:
Public Sub Clear()
  Pointer = 1
End Sub
 
'String anhängen:
Public Sub Concat(ByRef Value As String)
  Dim PointerNew As Long
 
  'Benötigten Buffer berechnen:
  PointerNew = Pointer + LenB(Value)
 
  'Ggf. Buffer vergößern:
  If PointerNew > BufferLen Then
    Buffer = Buffer & Space$(PointerNew)
    BufferLen = LenB(Buffer)
  End If
 
  'String passend kopieren:
  MidB$(Buffer, Pointer) = Value
  Pointer = PointerNew
End Sub
 
'Länge des internen Strings:
Public Property Get Length() As Long
  Length = Pointer \ 2
End Property
 
'Inhalt des internen Strings:
Public Property Get Value() As String
  Value = LeftB$(Buffer, Pointer - 1)
End Property
 
'Neues Objekt initialisieren:
Private Sub Class_Initialize()
  Clear
End Sub

Dim cc As Concat
     Set cc = New Concat
'.....
cc.Clear
'101 "x" aneinanderfügen
for i = 0 to 100
 cc.concat "x"
next i
sString = cc.Value

Tschaui
Woellmi