'/**
' * Erweiterung der msgbox() mittels vsprintf() uns split()
' * Auf Prompt und Title wird ein vsprintf() mit den übergebenen Paramtern ausgeführt
' * @example:               Call vsMsgBoxSplit("Yaslaw;987.65", ";", "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
' * @ressource              vsMsgBox()  http://wiki.yaslaw.info/dokuwiki/doku.php/vbaprintf#vsmsgbox
' * @ressource              split2var() http://wiki.yaslaw.info/dokuwiki/doku.php/vbvbaarrayfunctions#split2var
' * @ressource              array2var() http://wiki.yaslaw.info/dokuwiki/doku.php/vbvbaarrayfunctions#array2var
' * @param  String          String mit den Werten der sich mittels split() in einen Array wandelt
' * @param  String          Delimiter für den split(). Default: " "
' * @param  see msgbox()
' * @return see msgbox()
' */
Public Function vsMsgBoxSplit( _
        ByVal iExpression As String, _
        Optional ByVal iDelimiter As String = " ", _
        Optional ByVal iPrompt As String = vbNullString, _
        Optional ByVal iButtons As VbMsgBoxStyle = vbOKOnly, _
        Optional ByVal iTitle As String, _
        Optional ByVal iHelpFile As String, _
        Optional ByVal iHelpContext As Long _
) As VbMsgBoxResult

    vsMsgBoxSplit = vsMsgBox( _
        split2Var(iExpression, iDelimiter), _
        iPrompt, _
        iButtons, _
        iTitle, _
        iHelpFile, _
        iHelpContext _
    )
End Function