vbYesNo + vbquestion

[piresmdb]

Hi al

Lets Imagine that I have the follow question
Msg = "Would you like to travel"
Ans = MsgBox(msg, vbYesNo)

then in case of afirmative answer (YES) I would also like to ask another question example Europe or Asia?

How can I do it?

 

[Trevor G]

Try something like this, but I think you would be better of looking to use a VBA Form

Sub msg1()
If MsgBox("Please select yes or no", vbInformation + vbYesNo, "Sample") = vbYes Then
MsgBox ("Select a country")
Else: Exit Sub

End If
End Sub

 

[VoG]

Maybe like this

msg = "Would you like to travel"
ans = MsgBox(msg, vbYesNo)
If ans = vbYes Then
'
'more code
'
End If

 

[doofusboy]

You mean something like this?

    msg = "Would you like to travel?"
    ans = MsgBox(msg, vbYesNo)
    If ans = vbYes Then
        msg = "To Europe or Asia?"
        ans = MsgBox(msg, vbYesNo)
        If ans = vbYes Then
            ' code if they answer yes...
        End If
    End If