Public Type MediaInfo
  Title As String
  Artist As String
End Type
 
Public Function GetInfo(ByVal File As String) As MediaInfo
  Dim T As String, TLen As Integer, I As String, ILen As Integer, FN As Integer
 
  FN = FreeFile
  Open File For Binary Access Read As FN
 
  Get FN, 55, TLen 'Länge des Titels als Integer auf Byte 55/56
  Get FN, 57, ILen 'Länge des Interpreten als Integer auf Byte 57/58
 
  T = Space(TLen)
  I = Space(ILen)
 
  Get FN, 64, T 'Titel einlesen
  Get FN, , I 'Interpret einlesen
 
  'Nullzeichen entfernen
  T = Replace(T, Chr(0), "")
  I = Replace(I, Chr(0), "")
 
  GetInfo.Artist = I
  GetInfo.Title = T
 
  Close FN
 
End Function

{brigens> Ein Kezboard/Treiber ist v;llig [berfl[ssig