请教大家下：帮我看下下面的程序，为什么不能转换成中文
Private Sub Command1_Click()
Dim filenum As Integer
Dim filenam As String
Dim title As Byte
Dim tag As Byte
Dim i As Integer
Text1.Text = ""
Text2.Text = ""
cd1.Filter = "音频文件|*.mp3;*.wma"
cd1.ShowOpen
filenam = cd1.FileName
filenum = FreeFile
Open filenam For Binary Access Read As filenum
Seek filenum, LOF(filenum) - 128
For i = 0 To 2
     Get filenum, , tag
     Text1.Text = StrConv(tag, vbUnicode) & Text1.Text
Next i
For i = 0 To 29
     Get filenum, , title
     Text2.Text = StrConv(title, vbUnicode) & Text2.Text
Next i
Close filenum
End Sub

有谁帮下忙啊

谁帮我看下啊

没人能帮下吗

???

怎么没人解答下啊