Создание и заполнение таблицы Excel из VB6

Dim i As Double
Private Sub UserForm_Activate()
i = 1
Do While Cells(i, 1) > ""
i = i + 1
Loop
txtN.Enabled = True
txtN.Text = CStr(i - 2)
txtN.Enabled = False
End Sub
Private Sub CmdVvod_Click()
For d = 1 To 100
Sheets("лист1").Cells(d + 2, 1) = d
Next d
Cells(i, 2) = txtFIO.Text
Cells(i, 3) = txtM1.Text
Cells(i, 4) = CInt(txtM2.Text)
Cells(i, 5) = txtM3.Text
Cells(i, 6) = CInt(txtM4.Text)
txtN.Enabled = True
txtN.Text = CStr(i - 1)
txtN.Enabled = False
i = i + 1
End Sub
Private Sub CmdCancel_Click()
txtFIO.Text = "": txtM1.Text = ""
txtM2.Text = "": txtM3.Text = "": txtM4.Text = ""
End Sub
Private Sub CmdExit_Click()
FrmVvod.Hide
End Sub
Private Sub CommandButton1_Click()
ActiveWorkbook.PublishObjects.Add(xlSourceSheet, "M:\Sanek2034.htm", "Лист1").Publish
End Sub

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("F: \ test.xls")
objExcel.Application.Visible = True
 
objExcel.Cells(1, 2).Value = txtFIO.Text
objExcel.Cells(1, 3).Value = txtM1.Text
objExcel.Cells(1, 4).Value = CInt(txtM2.Text)
objExcel.Cells(1, 5).Value = txtM3.Text
objExcel.Cells(1, 6).Value = CInt(txtM4.Text)
objExcel.ActiveWorkbook.Save "F: \ test.xls"
 objExcel.ActiveWorkbook.Close
 
 objExcel.Application.Quit
 WScript.Echo "Aioiai."
 WScript.Quit

Set objExcel = CreateObject("Excel.Application")
 Set objBook = objExcel.Workbooks.Add
 Set objSheet = objBook.Worksheets(1)
 objExcel.Visible = True
objExcel.Cells(1, 2).Value = txtFIO.Text
objExcel.Cells(1, 3).Value = txtM1.Text
objExcel.Cells(1, 4).Value = CInt(txtM2.Text)
objExcel.Cells(1, 5).Value = txtM3.Text
objExcel.Cells(1, 6).Value = CInt(txtM4.Text)
 
objExcel.Quit
 Set objExcel = Nothing