In diesem Beispiel wird die Asc-Funktion verwendet, um den Zeichen-Code für das erste Zeichen einer Zeichenfolge zurückzugeben.
Dim Testzahl TestZahl = Asc("A") ' Gibt 65 zurück. TestZahl = Asc("a") ' Gibt 97 zurück. TestZahl = Asc("Banane") ' Gibt 66 zurück.