Module A
    Sub Main()
        Dim s As String = Console.ReadLine()
        Dim wk As String = s(0)
        For i As Integer = 1 To 2
            If s(0) <> s(i) Then
                Console.WriteLine("Yes")
                Return
            End If
        Next
        Console.WriteLine("No")
    End Sub
End Module