Hallo,
Ja klar, nur das andere wäre halt eine Codezeile.
hier ein Vorschlag für eine 15-Zeichen-Umsetzung per Tabelle.
So sind es zwei Zeilen.
(nicht getestet, sollte aber gehen)

Gruß Jan

Code:
Dim A As String * 15
Dim B As String * 15
Dim N As Byte
Dim Z As String * 1


'Vorbereitung,  nur einmal beim Start
A = "ÂÊÎÔÛÀÈÌÒÙÁÉÍÓÚ"
For N = 17 To 31
B = B + Chr(n)
Next N


'Umsetzung Beispiel für ein Zeichen
Z = "Î"

N = Instr(z , A)
Z = Mid(b , N , 1)

Print Z;