Text in Hex

[Sesa_Mina]

Dim E as string, I as long, txt as string
for I=1 to len(text1.text)
   E=hex(mid$(text1.text,I,1)
   txt=string(2-len(E),"0") & txt &" "
   if len(txt)=12 then txt=txt &" " : text2.text=text2.text & txt : txt=""
next
text2.text=text2.text & txt

damit sollte es auch klappen

der hex code wird auch noch schön formatiert und dadurch dass nicht immer einzelne zeichen zum textfeld hinzugefügt werden sondern ein längerer string geht das ganze auch noch schneller. hübsche formatierung ist auch noch drin