با سلام
دوست گرامی قالب صحیحی از تابع msgbox سه کلیده در 2010، به صورت زیر است سعی کن خواسته خودت را در قالب زیر در آوری
کدهای زیر را در یک دگمه قرار بده تا نمونه را ببینی
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Do you want to continue ?" ' Define message.
Style = vbYesNoCancel + vbCritical + vbDefaultButton2 ' Define buttons.
Title = "MsgBox Demonstration" ' Define title.
Help = "DEMO.HLP" ' Define Help file.
Ctxt = 1000 ' Define topic
' context.
' Display message.
Response = MsgBox(Msg, vbYesNoCancel, Title, Help, Ctxt)
If Response = vbNo Then ' User chose Yes.
' Perform some action.
MsgBox "NO"
End If
If Response = vbCancel Then ' User chose Yes.
' Perform some action.
MsgBox "Cancel"
End If
If Response = vbYes Then ' User chose Yes.
' Perform some action.
MsgBox "Yes"
End If