Расширенный MsgBox, позволяющий задавать количество кнопок и надписи для них - VB

Формулировка задачи:

Имеется скачанный с сети "Расширенный MsgBox, позволяющий задавать количество кнопок и надписи для них" - можно его приспособить и как в Ворде, чтобы работать с ним в в ВБА? Спасибо

Решение задачи: «Расширенный MsgBox, позволяющий задавать количество кнопок и надписи для них»

textual
                            Листинг программы 
                        

                            Sub pokaz()
'максимальное количество кнопок в примере - 6
'для большего числа нужно просто добавить названия кнопок
'BildBut(кол_кнопок, надписи_на_кнопках, текст_сообщения)
MsgBox BildBut(InputBox("Введите количество кнопок"), _
                "Да,Нет,Возможно,Согласен,Допустим,Это хорошо", _
                "Внимание!" & Chr(13) & "Вам предстоит сделать трудный выбор из следующих кнопок." & Chr(13) & "От того какую кнопку Вы выберете зависит судьба этого окошка!!!")
End Sub
                        