r(iPos, sResponse, vbLf)
      If (iPos &gt; 0) Then
         If (iPos = 1) Then
            sResponse = Mid(sResponse, 2)
         ElseIf (iPos &lt; Len(sResponse)) Then
            sResponse = Left(sResponse, iPos - 1) &amp; Mid(sResponse, iPos + 1)
         Else
            sResponse = Left(sResponse, iPos - 1)
         End If
      End If
   Loop While iPos &gt; 0
   
   If (Left(sResponse, 1) = "#") Then
      ' line is a comment
      If Len(m_sComments) &gt; 0 Then
         m_sComments = m_sComments 