'/**
' * Erweiterung der msgbox() mittels vsprintf()
' * Auf Prompt und Title wird ein vsprintf() mit den übergebenen Paramtern ausgeführt
' * @example:
' *         Dim params(1) As Variant
' *         params(0) = "Yaslaw"
' *         params(1) = 987.65
' *         Call vsMsgBox(params, "Hallo %s. Du hast %f Punkte.\nGut gemacht %1$s", vbOKOnly, "Punkte von %s")
' * @ressource              vsPrintF    http://wiki.yaslaw.info/dokuwiki/doku.php/vbaprintf#vsprintf
' * @param  Array<Variant>  Die Parameter für vsPrintf()
' * @param  see msgbox()
' * @return see msgbox()
' */
Public Function vsMsgBox( _
        ByRef iParams() As Variant, _
        ByVal iPrompt As String, _
        Optional ByVal iButtons As VbMsgBoxStyle = vbOKOnly, _
        Optional ByVal iTitle As String, _
        Optional ByVal iHelpFile As String, _
        Optional ByVal iHelpContext As Long _
) As VbMsgBoxResult

    vsMsgBox = msgBox( _
        Prompt:=vsPrintF(iPrompt, iParams), _
        buttons:=iButtons, _
        title:=vsPrintF(iTitle, iParams), _
        HelpFile:=iHelpFile, _
        Context:=iHelpContext)
End Function