yes/no message box with question mark

[Aviles]

Hello,

I am using the following code for my message box:

Code:
Set Wkb2 = ActiveWorkbook
Wkb2.ActiveSheet.UsedRange.Copy Workbooks("PrimeCo.xlsm").Worksheets("Mel").Range("A1")

YesNo = MsgBox("Is this the Correct MEL Side File?", vbYesNo + vbCritical, "Click on Yes or No")
Select Case YesNo
Case vbYes
Windows("PrimeCo.xlsm").Activate
Sheets("PrimeCo Home").Select
Case vbNo
Windows("PrimeCo.xlsm").Activate
Sheets("Mel").Cells.Clear
Windows("PrimeCo.xlsm").Activate
Sheets("PrimeCo Home").Select
End Select
End With

The code works fine, but the message box comes up with a symbol of a white "X" inside a red circle.

I would like this message box to show a "Question Mark" symbol instead. Is there a way to amend the code?

Searches I've done says you can add a this symbol by adding a 'symbol type' as part of the message box code, for example, type 32... but I have no idea how to work this type into my code. Please help.

 

[Fowmy]

Replace vbCritical with vbQuestion

 

[John_w]

Try:

YesNo = MsgBox("Is this the Correct MEL Side File?", vbYesNo + vbQuestion, "Click on Yes or No")

 

[Aviles]

Thank you John_w and Fowmy, that worked great!