Кнопки окна предупреждения

[mephist]

Я этот темы не нашел.
Один умный человек мне подсказал такой код

    x = MsgBox("Продолжить?", vbOKCancel, "Замена")
    If x = vbCancel Then Exit Sub
...

А можно ли сделать третью кнопку??? Мне например нужно создать еще кнопку Save As... , по нажатии которой будет выскакивать окно сохраниьть как.

[EducatedFool]

Мне например нужно создать еще кнопку Save As

Такую кнопку средствами функции MsgBox получить не удастся.
Есть варианты MsgBox в тремя кнопками, но разрешённые комбинации кнопок предопределены.

Попробуйте такой вариант:

Sub test()
    msg = msg & "Нажмите ДА, если нужны формулы только для РУССКОЙ версии Excel" & vbNewLine
    msg = msg & "Нажмите НЕТ, если нужны формулы только для АНГЛИЙСКОЙ версии Excel" & vbNewLine
    msg = msg & "Нажмите ОТМЕНА, если нужны формулы для ОБЕИХ версий Excel" & vbNewLine

    Select Case MsgBox(msg, vbYesNoCancel, "Select Language")
        Case vbCancel: en = True: Ru = True
        Case vbYes: Ru = True
        Case vbNo: en = True
    End Select
End Sub

Или так:

Sub test2()
    Select Case MsgBox("Текст вопроса", vbAbortRetryIgnore + vbQuestion, "Заголовок")
        Case vbAbort: MsgBox "Нажата кнопка ПРЕРВАТЬ"
        Case vbRetry: MsgBox "Нажата кнопка ПОВТОР"
        Case vbIgnore: MsgBox "Нажата кнопка ПРОПУСТИТЬ"
    End Select
End Sub

[mephist]

Спасибо большое!