Hier mein Code-Vorschalg:
Code:
For i = 1 To Len(Text1.Text)
e$ = Asc(mid$(text1.text,i,1))
e$ = "0" & Hex(e$)
e$ = right(e$,2)
Text2.Text = Text2.Text & e$ & space1$
Next i
Erklärung:
Ich hab dein Text1.SelStart = t: Text1.SelLength = 1: e$ = Asc(Text1.SelText) durch
e$ = Asc(mid$(text1.text,i,1)) ersetzt.
mid$(string, anfang, länge) gibt, <länge> Zeichen von <string> von <anfang> weg, zurück. Es ist schneller und "schöner" als diene methode.
dann hänge ich einfach eine 0 vor dem Hex und schreib es in e$ zurück. Jetzt ist an 1. Stelle immer eine 0 und dann folgen ein oder 2 stellen.
right (<string>, <länge>) liest <länge> zeichen von rechts aus <string>.
Dass heisst er schneidet entweder die anfangs null weg (nämlich wenn hex 2 stellen liefert) oder nimmt den ganzen string (0 & ergebniss von hex).
Hoffe geholfen zu haben.
lg