Sub Test()
    S = InputBox("")
    
    Set myDic = CreateObject("Scripting.Dictionary")
    
    For Each i In Mid(S, i, 1)
        myDic.Add i, ""
    Next

    ans = "No"
    Select Case True
    Case Not myDic.exists("a")
    Case Not myDic.exists("b")
    Case Not myDic.exists("c")
    Else
        ans = "Yes"
    End Select

    MsgBox ans

End Sub