Module Module1

    Sub Main()
        Dim ans As String = ""

        Dim value As String = Console.ReadLine

        If Not (value.Substring(0, 1) = value.Substring(1, 1) AndAlso value.Substring(1, 1) = value.Substring(2, 1)) Then
            ans = "Yes"
        Else
            ans = "No"
        End If




        Console.WriteLine(ans)
        Console.ReadKey()








    End Sub




End Module
