Public Function HexToString(ByVal data As String)
   Dim i As Integer
   Dim nBytes As Integer

   nBytes = Len(data)

   For i = 1 To nBytes
       HexToString = HexToString & Chr("&H" & Mid(data, i, 2)).ToString
       i = i + 1
   Next

End Function