MsgBox Query

[Skyybot]

Novice here. I have a question regarding MsgBox return values. Please keep in mind that the following example will not be used in "Real Life". I only want to satisfy my curiosity. Why does the following code never get to the "Else" line?

Sub curious()

If MsgBox("Hello", vbOKOnly, "Test") = vbOK Then
Debug.Print "Yes was clicked!"
Else
Debug.Print "Close button (red X) was clicked."
End If

End Sub

 

[dmt32]

Hi,
your msgbox is just displaying button OK - pressing the X returns the same value (1) as the OK button.

try this example

Sub curious()

If MsgBox("Hello", vbYesNo, "Test") = vbYes Then
    Debug.Print "Yes was clicked!"
Else
    Debug.Print "No was clicked."
End If

End Sub

You can read more in VBA helpfile: MsgBox function (Visual Basic for Applications)

 

[Skyybot]

Hi,
your msgbox is just displaying button OK - pressing the X returns the same value (1) as the OK button.

try this example

Sub curious()

If MsgBox("Hello", vbYesNo, "Test") = vbYes Then
    Debug.Print "Yes was clicked!"
Else
    Debug.Print "No was clicked."
End If

End Sub

You can read more in VBA helpfile: MsgBox function (Visual Basic for Applications)

Thank you for the reply but I'm not trying to make a functional subroutine here. I just want to know why the Close button has the same value as the Ok button.

 

[dmt32]

I just want to know why the Close button has the same value as the Ok button.

you are performing the same action to dismissing the Msgbox - both actions return the value of 1.

Dave