&amp; vbCrLf
      End If
      m_sComments = m_sComments &amp; Mid(sResponse, 2)
   ElseIf (Left(sResponse, 1) = ".") Then
      ' complete
      bComplete = True
   Else
      iPos = InStr(sResponse, "=")
      If (iPos &gt; 1) Then
         Dim sToken As String
         sToken = Left(sResponse, iPos - 1)
         Select Case True
         Case InStr(sToken, "TTITLE") &gt; 0
            AddTitle sResponse
         Case InStr(sToken, "EXTT") &gt; 0
            AddExtendedDetails sResponse
         Case InS