You have this function:
You pass a hex string to it, say Hex.text (which is a textbox)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 return it to text1.text (the answer textbox)
You pass Hex.text ( or "AB0D0") like this:
or:VB Code:
text1.text = HexToString(Hex.text)
VB Code:
text1.text = HexToString("AB0D0")




Reply With Quote