But, I reduced it to this:

VB Code:
  1. Private Sub Form_Load()

  2.     Dim tagData As String * 128

  3.     vData = "D:\Alex\Mp3\Muziek\Cornershop - Brimful of Asha.mp3"

  4.     If Len(Dir(vData)) = 0 Then

  5.          MsgBox "Error, file not found": Exit Sub

  6.     Else

  7.         If UCase(Right(vData, 4)) <> ".MP3" Then MsgBox "Error, not an Mp3 file": Exit Sub

  8.         fileNum = FreeFile

  9.         filePos = FileLen(vData) - 127

  10.         If filePos > 0 Then

  11.             Open vData For Binary As #fileNum

  12.                 Get #fileNum, filePos, tagData

  13.             Close #fileNum

  14.             If Left(tagData, 3) <> "TAG" Then MsgBox "Error, tag not located": Exit Sub

  15.             mvarTitle = Replace(Trim(Mid(tagData, 4, 30)), Chr(0), "")

  16.             mvarArtist = Replace(Trim(Mid(tagData, 34, 30)), Chr(0), "")

  17.             mvarAlbum = Replace(Trim(Mid(tagData, 64, 30)), Chr(0), "")

  18.             mvarYear = Replace(Trim(Mid(tagData, 94, 4)), Chr(0), "")

  19.             mvarComment = Replace(Trim(Mid(tagData, 98, 30)), Chr(0), "")

  20.             mvarGenre = Asc(Mid(tagData, 128, 1))

  21.         Else

  22.             MsgBox "Error, file too short to be tagged Mp3-file": Exit Sub

  23.         End If

  24.     End If

  25.     Text1 = "Title    " & mvarTitle & vbCrLf

  26.     Text1 = Text1 & "Artist   " & mvarArtist & vbCrLf

  27.     Text1 = Text1 & "Album    " & mvarAlbum & vbCrLf

  28.     Text1 = Text1 & "Year     " & mvarYear & vbCrLf

  29.     Text1 = Text1 & "Comment  " & mvarComment & vbCrLf

  30.     Text1 = Text1 & "Genre    " & mvarGenre

  31. End Sub