Um den Zeichencode eines bestimmten Zeichens zu ermitteln, braucht dieses Zeichen nur markiert und folgendes Makro aufgerufen zu werden:
Sub MAIN
If Len(Markierung$())=1THEN
Code = Asc(Markierung$())
MsgBox "Das markierte Zeichen ist in der Schriftart" + Chr$(13) + ">" + Schriftart$() + "< formatiert und hat" + Chr$(13) + "den ANSI-Code >" + LTrim$(Str$(Code)) + "<."
Else
MsgBox "Bitte nur ein Zeichen markieren."
EndIf
End Sub