VB PDU mode UCS2 解码

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