Добрый день.Есть VBS скрипт создания пользовательской формы для ввода параметров.Подскажите как сделать что бы перед запуском Excel форма ожидала подтверждения. Т.е если ОК то запускается Excel , а если Cancel то выход из формы.Заранеее спасибо

Sub clnpsdep_t3

''ñîçäàíèå äèàëîãîâîãî îêíà
Set Form = TForm.Create(Application)
Form.Caption = "Ïàðàìåòðû îò÷åòà"
Form.Position = poOwnerFormCenter
Form.FormStyle = fsStayOnTop
Form.Width = 600
Form.Height = 330
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
set ed = TEdit.Create(Form)
ed.Parent = Form
ed.Left = 250
ed.Top = 15
ed.Width = 62
ed.Name = "ED"
ed.text = date

set lb1 = TLabel.Create(Form)
lb1.Parent = Form
lb1.Left = 10
lb1.Top = 15
lb1.Name = "lb1"
lb1.Caption = "Ðàñ÷èòàòü íà äàòó:"
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
set lb2 = TLabel.Create(Form)
lb2.Parent = Form
lb2.Left = 10
lb2.Top = 40
lb2.Name = "lb2"
lb2.Caption = "Îêëàä:"

q = "select code from grsalary "
Query.Sql.Text = q
Query.Open

set cmbbox = TComboBox.Create(Form)
cmbbox.Parent = Form
cmbbox.Left = 250
cmbbox.Top = 40
cmbbox.Width = 330
cmbbox.Name = "cmbbox"
cmbbox.Text = "Íå çàäàíî"
While Not Query.EOF
Form.cmbbox.Items.Add = Query.FieldByName("code").Value
Query.Next
I = I + 1
wend
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
set cc = TLabel.Create(Form)
cc.Parent = Form
cc.Left = 10
cc.Top = 65
cc.Name = "cc"
cc.Caption = "Ãðóïïà êàòåãîðèé ÔÎÒ äëÿ ïðî÷èõ íàäáàâîê:"

q = "select code from grcatsal "
Query.Sql.Text = q
Query.Open

set DDD = TComboBox.Create(Form)
DDD.Parent = Form
DDD.Left = 250
DDD.Top = 65
DDD.Width = 330
DDD.Name = "DDD"
DDD.Text = "Íå çàäàíî"
While Not Query.EOF
Form.DDD.Items.Add = Query.FieldByName("code").Value
Query.Next
I = I + 1
wend
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
set fff = TEdit.Create(Form)
fff.Parent = Form
fff.Left = 250
fff.Top = 90
fff.Width = 62
fff.Name = "fff"
fff.text = date

set ggg = TLabel.Create(Form)
ggg.Parent = Form
ggg.Left = 10
ggg.Top = 90
ggg.Name = "ggg"
ggg.Caption = "Äàòà ñîñòàâëåíèÿ:"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
set bb = TEdit.Create(Form)
bb.Parent = Form
bb.Left = 250
bb.Top = 115
bb.Width = 330
bb.Name = "bb"
bb.text = ""

set aa = TLabel.Create(Form)
aa.Parent = Form
aa.Left = 10
aa.Top = 115
aa.Name = "aa"
aa.Caption = "Íîìåð äîêóìåíòà:"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
set hh = TEdit.Create(Form)
hh.Parent = Form
hh.Left = 250
hh.Top = 140
hh.Width = 330
hh.Name = "hh"
hh.text = ""

set kk = TLabel.Create(Form)
kk.Parent = Form
kk.Left = 10
kk.Top = 140
kk.Name = "kk"
kk.Caption = "Ñðåäíåå êîëè÷åñòâî ÷àñîâ â ìåñÿö:"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
set lb22 = TLabel.Create(Form)
lb22.Parent = Form
lb22.Left = 10
lb22.Top = 165
lb22.Name = "lb22"
lb22.Caption = "Íàçâàíèå îðãàíèçàöèè:"

q = "select orgname from lkv_t_bossname "
Query.Sql.Text = q
Query.Open

set cmbbox2 = TComboBox.Create(Form)
cmbbox2.Parent = Form
cmbbox2.Left = 250
cmbbox2.Top = 165
cmbbox2.Width = 330
cmbbox2.Name = "cmbbox2"
cmbbox2.Text = "Íå çàäàíî"
While Not Query.EOF
Form.cmbbox2.Items.Add = Query.FieldByName("orgname").Value
Query.Next
I = I + 1
wend
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
set ll = TEdit.Create(Form)
ll.Parent = Form
ll.Left = 250
ll.Top = 190
ll.Width = 330
ll.Name = "ll"
ll.text = ""

set mm = TLabel.Create(Form)
mm.Parent = Form
mm.Left = 10
mm.Top = 190
mm.Name = "mm"
mm.Caption = "Äîëæíîñòü ðóêîâîäèòåëÿ:"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
set nn = TEdit.Create(Form)
nn.Parent = Form
nn.Left = 250
nn.Top = 215
nn.Width = 330
nn.Name = "nn"
nn.text = ""

set oo = TLabel.Create(Form)
oo.Parent = Form
oo.Left = 10
oo.Top = 215
oo.Name = "oo"
oo.Caption = "Ô.È.Î. ðóêîâîäèòåëÿ:"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
set pp = TEdit.Create(Form)
pp.Parent = Form
pp.Left = 250
pp.Top = 240
pp.Width = 330
pp.Name = "pp"
pp.text = ""

set rr = TLabel.Create(Form)
rr.Parent = Form
rr.Left = 10
rr.Top = 240
rr.Name = "rr"
rr.Caption = "Ô.È.Î. ãëàâíîãî áóõãàëòåðà:"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


set cmdPrint = TButton.Create(Form)
cmdPrint.Parent = Form
cmdPrint.Left = 425
cmdPrint.Top = 270
cmdPrint.Name = "cmdPrint"
cmdPrint.Caption = "OK"
cmdPrint.Default = true
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
set cmdCancel = TButton.Create(Form)
cmdCancel.Parent = Form
cmdCancel.Left = 505
cmdCancel.Top = 270
cmdCancel.Name = "cmdCancel"
cmdCancel.Caption = "Îòìåíèòü"
cmdCancel.Cancel = true
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
form.Visible = True


'Çàïóñêàåì Excel
Set ExcelApplication = CreateObject("Excel.Application")
Set ExcelWorkbook = ExcelApplication.Workbooks.Add'
Set ExcelWorksheet = ExcelWorkbook.Worksheets(1)
ExcelWorksheet.Name = "Øòàòíîå ðàñïèñàíèå"
ExcelApplication.Sheets("Øòàòíîå ðàñïèñàíèå").Select

и т.д...........