Visual Basic para Aplicaciones - Problema vb-excel

Hola,
tengo un problema con pasar datos de una matriz a una hoja de excel. El código que tengo es el siguiente:
Dim vector() As String
vector= Split(txtContenido.Text, " ")
longitud = UBound(vector)

Dim prg As Excel.Application 'la instancia de ms excel que va a abrir vb
Dim w As Excel.Workbook, h As Excel.Worksheet 'libro y hoja a procesar

Set prg = New Excel.Application 'abre excel
'prg.Visible = True 'si queres mostrar excel a medida que trabaja
Set w = prg.Workbooks.Open("C:\Users\Usuario\Desktop\Nueva carpeta (4)\archivo.xls") 'abre el archivo
Set h = w.Worksheets(1) 'selecciono la primer hoja

For i = 0 To longitud
h.Cells(i, 1) = vector(i)
Next

'grabo los cambios, en otro archivo o en el mismo
'w.SaveAs "C:\otroarchivo.xls"
w.Save 'grabo el mismo archivo

'libero toda la memoria
Set h = Nothing
w.Close
Set w = Nothing
prg.Quit
Set prg = Nothing
End Sub

La matriz llamada vector, es una matriz con números. El error que me da, es en la línea donde voy a rellenar la tabla de excel con la matriz, y me dice: "Error 1004,error definidio por la apliación o el objeto".
Un saludo!

un error de índice...
en lugar de
h.Cells(i, 1) = vector(i)
debe ir
h.Cells(i + 1, 1) = vector(i)
para evitar i = 0

Saludos, desde Baires, JuanC

OK, muchas gracias. Menudo despiste.
Un saludo