Public Function HexToStr(ByVal Data As String) As String
        Dim com As String
        Dim i As Integer
        For i = 0 To Data.Length - 1 Step 4
            com &= ChrW(CInt("&H" & Data.Substring(i + 2, 2) & Data.Substring( _
              i, 2)))
        Next
        Return com
    End Function