MsgBoxEx - Extended Message Box

[manavo11]

Example :

Private Sub Command1_Click()
    Dim aButtons(2) As String
    aButtons(0) = "Go"
    aButtons(1) = "Come"
    aButtons(2) = "???"
 
    Caption = aButtons(MsgBoxEx("Text" & vbCrLf & "More Text" & vbCrLf & "Even More Text", vbCustom, "Title", , , aButtons, aButtons(1), 0, 0, 200, 300, vbWhite, vbBlue))
End Sub