Dim i As Long, j As Long
 
Dim Dateiinhalt As String
Open "C:\Users\Name\Desktop\Zahlen.txt" For Binary Access Read Shared 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))
Dim ZeilenZaehler As Long
For i = 0 To UBound(ArraysString)
    Dim Zahlen() As String
    Zahlen = Split(ArraysString(i), ",")
    If UBound(Zahlen) > 0 Then
        ReDim ArrWrappers(ZeilenZaehler).Arr(UBound(Zahlen))
        For j = 0 To UBound(ArrWrappers(ZeilenZaehler).Arr)
            ArrWrappers(ZeilenZaehler).Arr(j) = CLng(Replace(Zahlen(j), " ", _
              ""))
        Next
        ZeilenZaehler = ZeilenZaehler + 1
    End If
Next
ReDim Preserve ArrWrappers(ZeilenZaehler - 1)
 
'Zahlen generieren
GenerateZahlen ArrWrappers, "ZahlenErgebnis.txt"