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
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
