Dim ret() As Long
'Zahlen generieren
 
Open "test.txt" For Output As #1
 
ret = GenerateZahlen(ArrWrappers)
For i = 0 To UBound(ret, 2)
    Dim s As String
    s = ""
    For j = 0 To UBound(ret, 1)
        s = s & ret(j, i) & " "
    Next
    'Debug.Print s
    Print #1, s