)
   m_sExtendedDisk = ""
   m_iCode = 500

   Dim iPos As Long
   iPos = InStr(sResponse, " ")
   
   If (iPos &gt; 0) Then
      ' check the first value:
      If IsNumeric(Left(sResponse, iPos - 1)) Then
         m_iCode = CLng(Left(sResponse, iPos - 1))
         Select Case m_iCode
         Case 210
            ' ok process tracks
            Dim i As Long
            Dim iLineCount As Long
            Dim sLine() As String
            Dim bComplete As Boolean
            SplitDelimitedString sResponse,