Dim i As Long, j As Long
 
 
Dim Dateiinhalt As String
 
 
Open "Zahlen.txt" For Binary As 1
 
Dateiinhalt = Space(LOF(1))
Get 1, , Dateiinhalt
Close 1
Dim ArraysString() As String
ArraysString = Split(Dateiinhalt, vbCrLf)
 
Dim ArrWrappers() As ArrayWrapper
ReDim ArrWrappers(UBound(ArraysString))
For i = 0 To UBound(ArrWrappers)
    Dim ZAHLEN() As String
    ZAHLEN = Split(ArraysString(i), ",")
    ReDim ArrWrappers(i).Arr(UBound(ZAHLEN))
    For j = 0 To UBound(ArrWrappers(i).Arr)
        ArrWrappers(i).Arr(j) = CLng(ZAHLEN(j))
    Next
Next
 
 
 
GenerateZahlen ArrWrappers, "ZahlenErgebnis.txt"
 
 
Close