Text in Hex

[mqs]

Also ich hab ein kleines Problem beim Text in Hex zu convertieren.
Und zwar Convertiert er schon richtig, aber bei Hex zahlen, die zuerst eine Null haben und dann die zahl bzw den buchstaben lässt er beim ausgeben die Null weg.
Ich hab mal nen Screenshot gemacht

Wie kann ich die Hexzahlen ausgeben, damit ich auch die Nullen im Text habe?

Source Code:
t=0
For i = 0 To Len(Text1.Text) - 1
Text1.SelStart = t
Text1.SelLength = 1
e$ = Asc(Text1.SelText)
Text2.Text = Text2.Text & Hex(e$) & space1$
t=t+1
Next i

Vielleicht kann mir da einer helfen. Danke im Vorraus