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

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de