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