hier ein Vorschlag für eine 15-Zeichen-Umsetzung per Tabelle.
OK, man sieht, dass du in Bascom deutlich fitter bist als ich

@ Trabukh:
Bild kommt heute, war gestern nur 5 Minuten zu hause.

MFG Moritz

Edit:
Eine Idee: könnte man nicht

Z = Mid(b , N , 1)

durch

Z = Chr(16+N)
ersetzen?
Dann bräuchte man auch keinen 2. String mit den Zeichen ud keine For-schleife.

MFG Moritz