Sub rountine

Sub Confirmation()

Dim myAnswer as var

myAnswer = msgbox("Wanna out go with me?",vbQuestion + vbYesNo)

If myAnswer = 'Y' then
email.Reply = "Yes"
Else
email.Reply = "No"
End If

End Sub

Still waiting for straight answer.