CodeItBetter Programming Another VB Programming Blog

'String Manipulation - How to convert Hex to String
'Converts Hex to Sting (Useful for Encryption/Registry)

Option Explicit
 
Public Function HexToString(ByVal strData As String) As String
    Dim sResult As String
    Do Until Len(strData) < 2
        sResult = sResult & ChrW$(CLng("&H" & Left$(strData, 2)))
        strData = Right$(strData, Len(strData) - 2)
    Loop
    HexToString = sResult
End Function