Option Strict On

Module Module1

    Function ChrToStr(ByVal c As Char) As String
        Return c & ""
    End Function

    Sub Main()
        'var'
        Dim S() As Char = Console.ReadLine().ToCharArray()
        Dim ans As String = "No"

        Array.Sort(S)
        If Join(Array.ConvertAll(Of Char, String)(S, AddressOf ChrToStr), "") = "abc" Then
            ans = "Yes"
        End If

        Console.WriteLine(ans)

    End Sub

End Module