hex to ascii or ansi(Resolved)

[dedub]

I have browsed for an hour on this and have not found much. All the code snippets would work but right not Im not interested on calling a function. What I would like to do is simply type a two digit hex into a text box and get the ascii or ansi equivelent. Here is what I have so far. Oh, it does work until you introduce a letter from the alphabet, then it crashes.

Private Sub Command2_Click()
Dim num As Long
num = Text1.Text
Text2.Text = Chr(Val(num))
End Sub

Any help would be great