Sub Test()
    Dim position As ScreenPoint
    Dim chars() As ScreenCharacter
       
    'Set the starting point
    Set position = ThisScreen.SearchText("Jan", 0, ThisScreen.DisplayColumns, FindOptions_Forward)
    
    'Get 25 characters on this row
    chars = ThisScreen.GetCharacters(position.Row, position.Column, 25)
    
    'loop through the entire array and print the character codes of each character
    For i = 0 To UBound(chars)
    
        If Not chars(i).IsNoCharacter Then
            Debug.Print chars(i).charCode
        End If
        
    Next i
       
End Sub