The following procedure prompts for a string, then searches for the string in the terminal screen. If the string is found, its row and column are reported. If it isn't found, that fact is reported. A line continuation character (a space followed by an underscore) is used to break the long line.

Sub FindTextOnScreen ()

 With Session

  Dim stringToFind As String

  Dim found As Integer

  stringToFind = InputBox("String to search for?")


  found = Session.FindText(stringToFind, 1, 1)

  If found Then

   MsgBox "String found at row " & .FoundTextRow & _

      ", column " & .FoundTextColumn & "."


   MsgBox "String not found."

  End If


 End With

End Sub