, iPos + 6, iNextPos - iPos - 6)
      If IsNumeric(sTrack) Then
         lTrack = CLng(sTrack) + 1
         If (m_iTrackCount &lt; lTrack) Then
            m_iTrackCount = lTrack
            ReDim Preserve m_sTitles(1 To m_iTrackCount) As String
            ReDim Preserve m_sExtended(1 To m_iTrackCount) As String
         End If
         m_sTitles(lTrack) = Trim(Mid(sLine, iNextPos + 1))
      End If
   End If
End Sub
Private Sub AddExtendedDetails( _
      ByVal sLine As String _
   )
Dim iPos As Long
Dim