 vbCr, sLine(), iLineCount
            For i = 1 To iLineCount
               ProcessLine sLine(i), bComplete
               If (bComplete) Then
                  Exit For
               End If
            Next i
         Case Else
            ' nothing to do
         End Select
      End If
   End If
   
End Sub

Private Sub ProcessLine( _
      ByVal sResponse As String, _
      ByRef bComplete As Boolean _
   )
   
   Dim iPos As Long
   
   ' Get rid of any line feeds
   iPos = 1
   Do
      iPos = InSt