In Bild unten sehen Sie, dass zu einer eingegebenen Rufnummer direkt die Anzahl der möglichen Buchstabenkombinationen angezeigt wird.

Dabei wird in der Prozedur Vorbelegung() mit einer Schleife über alle Zeichen die jeweils nächste Ziffer mit Mid(Me.edtNummer.Value, intZeile, 1) ermittelt. Diese lässt sich mit der Val()-Funktion in eine echte Zahl umwandeln und gibt dann auch die Position innerhalb des Arrays arrAnzahl() an.