ing, _
      ByVal sArtist As String, _
      ByVal sTrack As String, _
      ByVal sYear As String, _
      ByVal sComment As String _
   )
   m_iTrack = iTrack
   m_sTitle = sTitle
   m_sAlbum = sAlbum
   m_sAlbumArtist = sAlbumArtist
   m_sArtist = sArtist
   m_sTrack = sTrack
   m_sYear = sYear
   m_sComment = sComment
   
   DeriveFileName
   
End Sub

Public Property Get FileName() As String
   FileName = m_sFileName
End Property

Private Sub DeriveFileName()
Dim sArtist As String
Dim sAlbumArtist As 