Option Explicit

Dim S, myDic
Dim i, key1, ans

Sub Test()
    S = InputBox("")
    
    Set myDic = CreateObject("Scripting.Dictionary")
    
    For i = 1 To Len(S)
        key1 = Mid(S, i, 1)
        If Not myDic.exists(key1) Then
            myDic.Add key1, ""
        End If
    Next

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

    MsgBox ans
    
    Set myDic = Nothing

End Sub


