Can you tell whats wrong with this autocad LISP?

Private Sub CommandButton1_Click()

Dim layobj As AcadLayer

Dim lname As String

Dim i As Integer

Dim entObj As Object

Dim test As String

Dim tot As Integer

Dim chl As ChartObject

On Error Resume Next

ListBox1.Clear

For 1 = 0 To ThisDrawing.Layers.Count = 1

Set layobj = ThisDrawing.Layers.Item(1)

lname = layobj.Name

ListBox1.AddItem lname

Next i

userform1.Hide

Err.Clear

Set excelApp = CreateObject("Excel.Application")

If Err <> 0 Then

NsgBox "Could not start Excel", vbExclamation

End

Else

excelApp.Visible -True

Set ubkObj = excelApp.Uorkbooks.Add

Set shtObj = excelApp.Uorksheets(1)

shtObj.cells(1, 1) = "Layer Name"

shtObj.cells(1, 2) = "Legend ƒƒ"

shtObj.cells(1, 3) = "Entities Found"

For i = 0 To ListBox1.ListCount - 1

tot -0

test = ListBox1.List [i]

For 0 = 0 to ThisDrawing.ModelSpace.Count -1

Set entObj = ThisDrawing.ModelSpace,Item(0)

lname -entObj.Layer

If lname - test Then tot -tot + 1

Next j

shtObj.cells(i + 2, 1) = test

shtObj.cells(i + 2, 2) = Str$(1 + 1)

shtObj.cells(i + 2, 3) = tot

Next i

End If

' Find last column entry

i = i

test = shtObj.cells(i, i)

Do While test <> ""

i -i + 1: test -shtObj - cells(i, 1)

Loop

test - "C2:C" £ Trim$ [Str$ (i - i)]

Set chl = Sheets ("Sheetl") . ChartObjects.Add(150, 20, 200, 200]

chl.Chart.ChartWizard Source:"'Worksheets ["Sheetl"] .Range[test],_

Gallery:"'xlPie, Format: -G

Userformal.Shov

End Sub