Помогите с программой "РАБОТА С ЭЛЕМЕНТАМИ ОДНОМЕРНОГО МАССИВА"

Option Explicit
Option Base 1
'' В редакторе в меню Tools->References ставишь галки
'' для подключения следующих библиотеки если они там ранее уже
'' не поставлены (версии могут быть другие, напр. Excel 10.0 и тд.):
'' 1.Visual Basic For Applications
'' 2.AutoCAD 2005 Type Library
'' 3.OLE Automation
'' 4.Microsoft Forms 2.0 Object Library
'' 5.Microsoft Excel 9.0 Object Library
Private Sub CommandButton1_Click()
Dim ExcelApp   As Object
Dim ExcelWorkbook   As Object
Dim ExcelSheet   As Object
Dim fName As String
On Error GoTo ProblemHere
    Set ExcelApp = CreateObject("Excel.Application")
    If Err <> 0 Then
      MsgBox "Could not start Excel!", vbCritical
      End
    End If
  ExcelApp.SheetsInNewWorkbook = 1
Set ExcelWorkbook = ExcelApp.Workbooks.Add
If ExcelWorkbook Is Nothing Then Exit Function
fName = "Kursovik"
cDir = ThisDrawing.GetVariable("DWGPREFIX")
ExcelWorkbook.SaveAs (cDir & fName & ".xls")
ExcelApp.Visible = True
With ExcelApp.Worksheets(1)
.Range("A1:C15").ClearContents
.Columns.AutoFit
Dim arrb(25) As Double
Dim arrt(25) As Double
Dim k, i As Integer
k = 0
For Count = 1 To 25
Randomize
arrb(Count) = 10 * Rnd()
.Cells(Count, 1).Value = arrb(Count)
If (Count Mod 2 = 0) And (Abs(arrb(Count) > 2.5)) Then
k = k + 1
.Cells(k, 2).Value = arrb(Count)
arrt(k) = arrb(Count)
End If
Next Count
For i = 1 To k
.Cells(i, 3).Value = arrt(i)
Next i
With .Range("A1:C15")
.NumberFormat = "0.000"
.Interior.color = RGB(241, 230, 14)
.BorderAround xlContinuous, , xlColorIndexAutomatic
.Borders.LineStyle = xlContinuous
.Font.color = RGB(0, 0, 127)
.Font.Bold = True
.Font.Italic = True
.Font.Size = 12
End With
End With
ProblemHere:
MsgBox Err.Description
End Sub
Private Sub CommandButton2_Click()
Unload Me
End
End Sub

Sub main()
UserForm1.Show
End Sub