Wie es g0pher schon in meinen Beitrag kommentiert hat, geht es natürlich etwas kürzer. Anstatt die ganzen ACSII und EBCDIC Werte einzeln den Array zu übergeben, lässt sich das ganze auch per Schleife realisieren. Und so kann es dann aussehen: Public Function func_ascii_to_ebcdic(sub_text as String) ”Variablen Dim acsii as String = “0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ” Dim ebcdic as