error en la 13 ?

papo07
07 de Noviembre del 2003
Private Sub Form_Load()
Set loexcel = CreateObject("Excel.Application")
' Añadimos un libro a esta porquería...
Set libro = loexcel.Workbooks.Open(App.Path & "TESIS123.xls")
' No permito que se vea Excel...
loexcel.Visible = False

For i = 1 To 22

s1 = "C" & i + 2
s2 = "D" & i + 2
s3 = "F" & i + 2
s3 = "G" & i + 2

Label5(i).Caption = loexcel.Workbooks(1).WorkSheets(29).Range(s1).Value
Next i

'loexcel.DisplayAlerts = False 'Para que no pregunte desea guardar?
'loexcel.Workbooks(1).Close 'Cerrar excel
'loexcel.quit 'Cerrarr el objeto
Set libro = Nothing ' Liberarlos
Set loexcel = Nothing 'Liberarlos


End Sub

PERDONEN MI INCREDULIDAD LLEVO APENAS 2 HORAS DE CONOCER VISUAL BASIC