private sub ButtonClick
....
Dim MP3 as MP3Info
MP3 = ReadMp3Tag("C:\filename.mp3")
....
end sub
 
Public Function ReadMP3Tag(ByVal Filename _
As String) As MP3Info
 
Dim F As Integer
Dim TagInfo As String * 128
 
F = FreeFile
Open Filename For Binary As #F
Seek #F, LOF(F) - Len(TagInfo) + 1
Get #F, , TagInfo
Close #F 
....
....

Gru?

Silver