GuessName

Sub GuessName()

 

    Msg = "Is Your Name " & Application.UserName & "?"

    Ans = MsgBox(Msg, vbYesNo)

    If Ans = vbNo Then MsgBox "Oh, never mind."

    If Ans = vbYes Then MsgBox "I Must be clairvoyant"

 

End Sub