Public Sub SaveFile()
    Dim x As Long
    Dim y As Long
 
    Open "c:\debug.txt" For Binary As #1
 
    'Print #1, Module1.SpielfeldL01()
 
    For x = 1 To 165
        For y = 1 To 165
            Print #1, Module1.SpielfeldL01(x, y)
        Next y
    Next x
 
    Close #1
End Sub

FILE *Datei;
 
	Datei = fopen("C:\\debug.txt", "w+");
	fwrite(text, sizeof(char), 27557, Datei);
    fclose(Datei);

fwrite(text, sizeof(char), 27557, Datei);

Print #1, Module1.SpielfeldL01()