Crear un array en VB 6.0

[iaras66]

Hola!!!

El caso es que tengo que visualizar en el encabezado de un word el numero de páginas y de cuestionario por cada hoja; es decir:
nº página 1 nº cuestionario 300 y en la siguiente:nº página 1 nº cuestionario 301
hasta el numero de cuestionario que se guarda con un textbox. Esto lo tiene que repetir con cada una de las hojas q tenga el documento.

Yo declaro las variables:
Global numinicio As Integer
Global numfinal As Integer
Global numpaginas As Integer
en un módulo y les asigno el valor introducido en un textbox.

Luego ejecuto el siguiente código:

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
'Para alinear el texto a la derecha
For x = numinicio To numfinal
For i = 1 To numpaginas
.Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
Documento.Selection.Font.Name = "Times News Roman"
Documento.Selection.Font.Size = 8
.Application.Selection.TypeText "Nº Cuestionario:" + x + vbNewLine + "Nº Página:" + i
.Selection.ParagraphFormat.Alignment = wdAlignParagraphRight

Documento.Selection.Font.Size = 8
.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
'intro
.Application.Selection.TypeParagraph
Next i
Next x

'mostramos documento
.Application.Visible = True
End With
Set Documento = Nothing

El caso es que me da problemas la linea que visualza los datos, pero tampoco se si está bien hecho ese For!!!

Alguna idea???