For xVon = 1 To 8
For yVon = 1 To 8
    For xNach = 1 To 8
    For yNach = 1 To 8
        Schreibe(ZTB(xVon) & yVon & "-" & ZTB(xNach) & yNach
    Next yNach
    Next xNach
Next yVon
Next xVon
 
Private function ZTB(i as Integer) as String
    ZTB = chr(i + 64)    'Liefert das Zeichen mit dem AsciiWert i + 64
'Wobei 64 der Ascii-Wert des Zeichens vor dem "A" ist, kA was das wirklich 'ist
End Function