'This example finds the position (row and column) of a string on a screen Sub ExampleForScreenPoint() Dim sPoint As ScreenPoint Dim text As String Dim row, column As Integer 'Get the maximum rows for the screen row = ThisScreen.DisplayRows column = ThisScreen.DisplayColumns 'Find the row Set sPoint = ThisScreen.SearchText4("Profit", 1, 1, row, column, FindOptions_Forward, TextComparisonOption_IgnoreCase) 'Get the Text text = ThisScreen.GetText(sPoint.row, sPoint.column, 8) Debug.Print text; " is at row " & sPoint.row & " and column " & sPoint.column End Sub