sTitle = "Track " &amp; Format(m_iTrack, "##0")
   End If
   
   sArtist = Trim(StripBadChars(m_sArtist))
   If Not (StrComp(sArtist, sAlbumArtist, vbTextCompare) = 0) Then
      sTitle = sArtist &amp; " - " &amp; sTitle
   End If
   
   
   If Len(m_sFileName) &gt; 0 Then
      m_sFileName = m_sFileName &amp; "\"
   End If
   m_sFileName = m_sFileName &amp; sTitle
   
End Sub

Private Function StripBadChars(ByVal sString As String) As String
Dim i As Long
Dim sC As String
Dim sRet As String
Dim bLastCharDo