Public Function SearchResponse(ByVal SearchText As String, ByVal _
      ResponseString As String, ByRef TargetRow As Integer, ByRef TargetColumn _
      As Integer, ByVal SuchRow As Integer, ByVal SuchColumn As Integer) As _
      Boolean
 
        Dim SuchArray() As String = ResponseString.Replace(vbCrLf, vbCr).Split( _
          vbCr)
        TargetRow = -1
        TargetColumn = -1
        For i As Integer = SuchRow To SuchArray.Length
            Dim Pos = SuchArray(i).IndexOf(SearchText, SuchColumn)
            If (Pos <> -1) Then
                TargetRow = i
                TargetColumn = Pos
                Return True
            End If
        Next
        Return False
    End Function