Option Explicit

Public Type ID3Tag
    Header As String * 3
    SongTitle As String * 30
    Artist  As String * 30
    Album  As String * 30
    Year  As String * 4
    Comment As String * 30
    Genre  As Byte
End Type

Private Function GetNullTerminateString(ByVal str As String) As String
    Dim pos  As Integer
    pos = InStr(str, Chr(0))
    If pos < 1 Then
        GetNullTerminateString = str
        Exit Function
    End If
    GetNullTerminateString = Left(str, pos - 1)
End Function

Public Function GetID3Tag(ByVal strFileName As String) As clsSongInfo

    On Error GoTo GetID3TagError

    Dim TempTag As ID3Tag
    Dim FileNum As Long

    If Dir(strFileName) = "" Then
        Exit Function
    End If
    
    FileNum = FreeFile
    
    Open strFileName For Binary As FileNum
    Get FileNum, LOF(1) - 127, TempTag
    Close FileNum
    
    If TempTag.Header = "TAG" Then
        Dim tag As New clsSongInfo
        tag.Header = Trim(GetNullTerminateString(TempTag.Header))
        tag.SongTitle = Trim(GetNullTerminateString(TempTag.SongTitle))
        tag.Artist = Trim(GetNullTerminateString(TempTag.Artist))
        tag.Album = Trim(GetNullTerminateString(TempTag.Album))
        tag.Year = Trim(GetNullTerminateString(TempTag.Year))
        tag.Comment = Trim(GetNullTerminateString(TempTag.Comment))
        Set GetID3Tag = tag
    End If

    Exit Function

GetID3TagError:
    Close FileNum
    Set GetID3Tag = Nothing
End Function