Sub msgBoxPa()
Dim myTitle As String
myTitle = "title"
Dim questin As String
question = "question"
Dim myButtons As Integer
myButtons = vbYesNo + vbQuestion + vbDefaultButton2
MsgBox Title:=myTitle, prompt:=question, Buttons:=myButtons, HelpFile:="HelpX.hlp", Context:=55
End Sub