怎样获得Mp3的歌曲信息

Question

Dim ttb(29) As Byte
    Dim tagData(127) As Byte
           fileNum = FreeFile
        filePos = FileLen(myfile) - 127
        If filePos > 0 Then
            Open myfile For Binary As #fileNum
                Get #fileNum, filePos, tagData
            Close #fileNum
        End If
      '  MsgBox Chr(tagData(0)) + Chr(tagData(1)) + Chr(tagData(2))
    If Chr(tagData(0)) + Chr(tagData(1)) + Chr(tagData(2)) = "TAG" Then
    For i = 0 To 29
        ttb(i) = tagData(i + 3)
    Next
    aa = Trim(StrConv(ttb, vbUnicode))
    frmMain.Text1 = frmMain.Text1 + vbCrLf + "曲目：" + aa
     For i = 0 To 29
        ttb(i) = tagData(i + 33)
     Next
    aa = Trim(StrConv(ttb, vbUnicode))
    frmMain.Text1 = frmMain.Text1 + vbCrLf + "作曲家：" + aa
     For i = 0 To 29
        ttb(i) = tagData(i + 63)
     Next
    aa = Trim(StrConv(ttb, vbUnicode))
    frmMain.Text1 = frmMain.Text1 + vbCrLf + "专辑：" + aa
    aa = Chr(tagData(93)) + Chr(tagData(94)) + Chr(tagData(95)) + Chr(tagData(96))
    If Val(aa) <> 0 Then frmMain.Text1 = frmMain.Text1 + vbCrLf + aa + "年 " Else frmMain.Text1 = frmMain.Text1 + vbCrLf
    For i = 0 To 29
        ttb(i) = tagData(i + 97)
     Next
    aa = Trim(StrConv(ttb, vbUnicode))
    frmMain.Text1 = frmMain.Text1 + aa
      frmMain.Text1 = frmMain.Text1 + vbCrLf + "类型：" & tagData(127)