Sub CheckScreenCharacter()
    Dim position As ScreenPoint
    Dim screenChar As ScreenCharacter
    
    'Find a screen postition to check
    Set position = ThisScreen.SearchText("Jan", 1, 1, FindOptions_Forward)
    'Get the character at that position
    Set screenChar = ThisScreen.GetCharacter(position.row, position.column)
    
    If screenChar.IsNoCharacter = False Then
    
        'Check the attributes for the character.
        If screenChar.IsBlinking = True Then
            Debug.Print "Character is Blinking"
        End If
        
        If screenChar.IsBold = True Then
            Debug.Print "Character is Bold"
        End If
        
        If screenChar.IsReverse = True Then
            Debug.Print "Character is Reverse video"
        End If
        
        If screenChar.IsUnderline = True Then
            Debug.Print "Character is Underline"
        End If
        
        If screenChar.IsPlain = True Then
            Debug.Print "Character is Plain"
        End If
    End If
       
End Sub