ID3-Tags

Hi Leute, hab mich grad an ID3-Tags rangemacht, aber irgendwie funzt das nich so wie ich es wollte:
Hier mein derzeitiger Stand:

[autoit][/autoit][autoit][/autoit][autoit]

$sFile = FileOpenDialog("Bitte MP3-Datei auswählen","","MP3-Dateien (*.mp3)")

[/autoit][autoit][/autoit][autoit]

$hFile = FileOpen($sFile,256)
$sFileContent = FileRead($hFile)
$ext = @extended

[/autoit][autoit][/autoit][autoit]

FileSetPos($hFile,$ext - 128,0)
$sTag = FileRead($hFile)
MsgBox(0,"",$sTag)
FileClose($hFile)

[/autoit][autoit][/autoit][autoit]

If StringLeft($sTag,3) <> "TAG" Then
MsgBox(48,"Fehler","Keine oder fehlerhafte TAG-Information gefunden!")
FileClose($hFile)
Exit
EndIf

[/autoit][autoit][/autoit][autoit]

MsgBox(0,"Tag-Information-Raw",$sTag)

[/autoit][autoit][/autoit][autoit]

$sTagVerify = StringLeft($sTag,3)
$sTag = StringTrimLeft($sTag,3)
$sTagSongTitle = StringLeft($sTag,30)
$sTag = StringTrimLeft($sTag,30)
$sTagInterpret = StringLeft($sTag,30)
$sTag = StringTrimLeft($sTag,30)
$sTagAlbum = StringLeft($sTag,30)
$sTag = StringTrimLeft($sTag,30)
$sTagYear = StringLeft($sTag,4)
$sTag = StringTrimLeft($sTag,4)
$sTagComment = StringLeft($sTag,30)
$sTag = StringTrimLeft($sTag,30)
$sTagGenre = StringLeft($sTag,1)
$sTag = StringTrimLeft($sTag,1)

[/autoit][autoit][/autoit][autoit]

MsgBox(0,"Tag-Information","Titel: " & $sTagSongTitle & @LF & "Interpret: " & $sTagInterpret & @LF & "Album: " & $sTagAlbum & @LF & "Erscheinungsjahr: " & $sTagYear & @LF & "Kommentar: " & $sTagComment & @LF & "GenreIndex: " & $sTagGenre)

[/autoit][autoit][/autoit][autoit][/autoit]

Problem ist, dass er mir das Anfangskürzel TAG richtig ausliest und den Titel auch, aber dananch ist schluss und ich weiß nicht warum -.-

Wäre schön wenn einer den Fehler finden würde. .

ok, wusste nicht das es in die Richtung was gibt, aber wollte es eben selber machen..
war aber eigentlich auch nicht meine Frage, ob es Alternativen gibt sondern wo mein Fehler liegt, aber danke trotzdem

*schubs* .. .