Dim tep As String
    Dim temp As String
    Dim i As Integer
    Dim B As Integer
    tep = rmsg
    i = Len(tep)
    If i < 1 Then Exit Function
   
    B = i / 4
    If i = B * 4 Then

     tep = Left(tep, B * 4)
    Else
       B = B - 1
     tep = Left(tep, B * 4)
    End If
    chg = ""
    For i = 1 To B
     temp = "&H" & Mid(tep, (i - 1) * 4 + 1, 4)
     chg = chg & ChrW(CInt(Val(temp)))
    Next i