Saving Msgbox Answer in A Variable

Sub Result()
ans = MsgBox("Do you want to Continue", vbYesNo)
If ans = vbYes Then MsgBox "You have selected yes", vbInformation
End Sub