You have this function:

Function HexToString(ByVal sText As String) As String
Dim saHex() As String, i As Long
saHex = Split(sText)
For i = 0 To UBound(saHex)
HexToString = HexToString & ChrW("&H" & saHex(i))
Next
End Function
You pass a hex string to it, say Hex.text (which is a textbox)
You return it to text1.text (the answer textbox)

You pass Hex.text ( or "AB0D0") like this:

VB Code:
  1. text1.text = HexToString(Hex.text)
or:

VB Code:
  1. text1.text = HexToString("AB0D0")