Public Function MsgBox2( _
    Prompt As String, _
    Optional Buttons As VbMsgBoxStyle = vbOKOnly + vbInformation, _
    Optional Title As String = "", _
    Optional HelpFile As String = "Message", _
    Optional HelpContext As Long = 0, _
    Optional Prompt2 As String = "", _
    Optional Prompt3 As String = "") As Long
 
Dim result As Long
 
WizHook.Key = 51488399
result = WizHook.WizMsgBox(Prompt & "@" & Prompt2 & "@" & Prompt3 & "@", Title, Buttons, HelpContext, HelpFile) 
 
MsgBox2 = result
 
End Function