Module Module1

    Sub Main()
        Dim readline As String = ""
        Dim hogehoge() As String

        Console.WriteLine("Please input")
        readline = Console.ReadLine()

        hogehoge = readline.Split(" ")

        If kawaiso(hogehoge) Then
            Console.WriteLine("Yes")
        Else
            Console.WriteLine("No")
        End If

        Console.ReadKey()

    End Sub


    Private Function kawaiso(ByVal hogehoge As String()) As Boolean

        If hogehoge.Length = 3 Then
            Dim flg As Boolean = True

            If (hogehoge(0) <> hogehoge(1)) AndAlso (hogehoge(1) <> hogehoge(2)) AndAlso (hogehoge(2) <> hogehoge(0)) Then
                Return False
            End If

            If ((hogehoge(0) = hogehoge(1)) AndAlso hogehoge(2) <> hogehoge(0)) OrElse
               ((hogehoge(1) = hogehoge(2)) AndAlso hogehoge(0) <> hogehoge(1)) OrElse
               ((hogehoge(2) = hogehoge(0)) AndAlso hogehoge(1) <> hogehoge(2)) _
                Then
                Return True
            End If
        End If


        Return False
    End Function

End Module
