 iNextPos As Long
Dim sTrack As String
Dim lTrack As Long
   iPos = InStr(sLine, "EXTT")
   iNextPos = InStr(iPos + 4, sLine, "=")
   If (iNextPos &gt; iPos) Then
      sTrack = Mid(sLine, iPos + 4, iNextPos - iPos - 4)
      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
         