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 & "."
Else
MsgBox "String not found."
End If
End With
End Sub