tr(sToken, "EXTD") &gt; 0
            m_sExtendedDisk = Trim(Mid(sResponse, iPos + 1))
         Case InStr(sToken, "PLAYORDER") &gt; 0
            m_sPlayOrder = Trim(Mid(sResponse, iPos + 1))
         End Select
      End If
   End If
End Sub
Private Sub AddTitle( _
      ByVal sLine As String _
   )
Dim iPos As Long
Dim iNextPos As Long
Dim sTrack As String
Dim lTrack As Long
   iPos = InStr(sLine, "TTITLE")
   iNextPos = InStr(iPos + 6, sLine, "=")
   If (iNextPos &gt; iPos) Then
      sTrack = Mid(sLine