https://bugs.documentfoundation.org/show_bug.cgi?id=146282

--- Comment #1 from [email protected] ---
I believe this report should be marked NOTABUG or INVALID.

Correct code would be like the following.
===========================


Option Explicit
Option VBASupport 1 ' without this line vbYesNoCancel is not defined.

Sub Message_Box_Test
        dim iResponse as Integer
        dim strNotes as String

    ' Correct Enum member would be vbYesNoCancel, not YESNOCANCEL
    ' Also, I added colon to indicate named parameter.
        iResponse = MsgBox("Are there special notes that need to be added to
this report?", Buttons:= vbYesNoCancel, "Special Notes")
        If iResponse = 7 Then
                MsgBox "No"
        ELSEIF iResponse = 2 Then
                Exit Sub
        ELSE
                strNotes = inputBox("Enter the special notes as they should
appear:", "Special Notes")
        END IF

        msgBox strNotes
End Sub

-- 
You are receiving this mail because:
You are the assignee for the bug.

Reply via email to