MsgBox
 

Try something like this....

Sub Display_Message(
Dim UserResp As VbMsgBoxResul
UserResp = MsgBox("Hi - please click a button", vbOKCancel, "Hi"
If UserResp = vbOK The
MsgBox ("You clicked OK"
ElseIf UserResp = vbCancel The
MsgBox ("You clicked Cancel"
End I
End Sub