Private Sub Кнопка_Click() MsgBox "Начало" Call My_procedure MsgBox "Конец" End Sub
Btn.OnClick="=My_Function()"