Catching VbMsgBoxResult

[jose luis]

Hi All,

How could i catch the result of a MsgBox and derive actions from th
user decision? Any help welcome!.

Thanks in advance

jose luis

P.D. Here is what i though will do the trick. I was wrong.


GuardarAntes()
MsgBox "Save Changes?", vbYesNoCancel, "Save?"

If VbMsgBoxResult.vbYes = 6 Then
MsgBox "Yes"
End If
If VbMsgBoxResult.vbNo = 7 Then
MsgBox "No"
End If
End Su

 

[doco]

Public Sub catchResponse()
Dim iResponse As Integer

iResponse = MsgBox("Please Respond", vbYesNo, "My Response")

MsgBox "My Resonse Is: " & iResponse, vbInformation, "Resonse"

End Sub

 

[Neil]

Jose
Try this

Sub doit()
Dim Response
Response = MsgBox("Save Changes", vbYesNoCancel, "Save")
If Response = vbYes Then
MsgBox "Yes"
Else
MsgBox "no"
End If
End Sub

Neil