Option Explicit
 
Private Path$
 
 
Private Sub cmdLoad_Click()
 
    Dim FileName As String
        FileName = Path
    Dim CurrentTag As TagInfo
 
    On Error Resume Next
 
 
    Open FileName For Binary As #1
    With CurrentTag
 
        Get #1, FileLen(FileName) - 127, .TAG
            If Not .TAG = "TAG" Then
                MsgBox "No Tag. Sorry", vbInformation, "..."
                Close #1
                Exit Sub
            End If
 
        Get #1, , .songname
        Get #1, , .artist
        Get #1, , .album
        Get #1, , .year
        Get #1, , .comment
        Close #1
 
        txtTitle = RTrim(.songname)
        txtArtist = RTrim(.artist)
        txtAlbum = RTrim(.album)
        txtYear = RTrim(.year)
        txtComment = RTrim(.comment)
 
 
    End With
    Close #1
End Sub

Option Explicit
 
Public Type TagInfo
  TAG As String * 3
  songname As String * 30
  artist As String * 30
  album As String * 30
  year As String * 4
  comment As String * 30
End Type