vb中unicode码,如何转换成文本 - VB / 基础类

用VB编程读取短信,得到一大堆unicode编码,请教如何转换成文本

例如:读取短信后(华为900C或TC35i),串口得到如下数据:

+CMGL: 17,"REC UNREAD","8615007557713",,"10/03/30,09:37:15+32",145,48
0042004C0053005A00300030003000410030003000300036003300410033...

第2行就是unicode编码的文本,如何转换成文本,谢谢!

---

text1.Text= StrConv(aBytes, vbUnicode)

---

VB code:
Private Sub Command1_Click()
Dim strSj As String
Dim bytSj() As Byte
Dim l As Long
Dim i As Long
strSj = "0042004C0053005A00300030003000410030003000300036003300410033"
l = Len(strSj)
ReDim bytSj(l \ 4 - 1)
For i = 1 To l Step 4
bytSj((i - 1) / 4) = Val("&H" & Mid(strSj, i + 2, 2))
Next
Me.Print StrConv(bytSj, vbUnicode)
End Sub

---

引用

text1.Text= StrConv(aBytes, vbUnicode)

我用的是VB2008,你的回答好像是VB6.0
还是感谢你

---

你发在“VB-基础类”版块，别人不给你 VB6.0 的代码，那给什么！

---

VB.NET code:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As String = "0042004C0053