Send Email with MsgBox vbOk

Hi all,

I have a message box with OK and Cancel. I need to have Excel send an email if the user presses ok or to not send if the user presses cancel. I have the code to send emails but I don't know how to apply it to a message box vbOk. I tried the following:

If vbOK Then
        ActiveWorkbook.SendMail _
            Recipients:="mvasas@hydro.mb.ca", _
            Subject:="IPI Charting Tool Feedback " & Format(Date, "dd/mmm/yy")
        Else
            Exit Sub
        End If

but this runs the sendmail no matter which button I press. Please help.

Regards: