'1 Задать вопрос пользоватею If MsgBox("Вы уверены что хотите создать технический документ?", vbYesNo Or vbInformation, "Внимание!") = vbNo Then Exit Function End If
'1 Задать вопрос пользоватею If MsgBox("Вы уверены что хотите создать технический документ?", vbYesNo Or vbInformation, "Внимание!") = vbNo Then Exit Function End If