    End If
         bLastCharDot = False
      End Select
   Next i
   If Len(sRet) &gt; 1 Then
      If Right(sRet, 1) = "." Then
         If Len(sRet) = 1 Then
            sRet = ""
         Else
            sRet = Left(sRet, Len(sRet) - 1)
         End If
      End If
   End If
   StripBadChars = sRet
End Function
   
Public Property Get CDTrackNumber() As Long
   CDTrackNumber = m_iTrack
End Property
Public Property Get Title() As String
   Title = m_sTitle
End Property
Public Property Get Album() As St