Reading/writing MP3 properties with Excel VBA

Hello all,
I am trying to read/write mp3 properties.
I downloaded the following code. I tried to run this, but i am getting an error with line
Dim id3 as New CddbID3Tag
I use vba with excel 2007. Also the following code doesnot have information about the path?
I hope someone can help me out on this one..

'---------------------------

Public Sub ProcessCells() 
Dim id3 As New CddbID3Tag 
Dim LastRow As Long 
Dim i As Long 

With ActiveSheet 

LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row 
For i = 1 To LastRow 

MP3TagChange id3, .Cells(i, "A") 
Next i 
End With 

End Sub 

Private Sub MP3TagChange(ByRef id3 As CddbID3Tag, ByRef cell As Range) 
With cell 
id3.LoadFromFile .Value, False 
id3.Album = .Offset(0, 1).Value 
id3.Title = .Offset(0, 4).Value 
id3.LeadArtist = .Offset(0, 5).Value 
id3.Year = .Offset(0, 6).Value 
id3.Genre = .Offset(0, 7).Value 
id3.TrackPosition = .Offset(0, 8).Value 
id3.SaveToFile .Value 
End With 
End Sub

Thanks
Sri