Sub Codieren_Klick()
 let Alpha = text1.text
let Beta = len(alpha) 'ermittelt die Länge von dem Zeichenausdruck
 
for i = 1 to beta step 1
 let Gamma = mid$(Alpha, i,1)' ließt ein zeichen nach dem anderen aus
 let delta = ASC(Gamma)
 let Gesammt = Gesammt + " " + delta
next i