Como ampliar una macro, para mas datos

Tengo esta macro:

Dim Datos(0 To 1, 0 To 2, 0 To 3) As String '(columna,fila)

Dim Datos(0 To 1, 0 To 2) As String '(columna,fila)
patharch = ThisWorkbook.Path & "\primero.dotx"
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
objWord.documents.Add Template:=patharch, NewTemplate:=False, DocumentType:=0
Datos(0, 0) = "[reemp_nombre]"
Datos(1, 0) = Español.Cells(6, 3) '(fila,columna)
Datos(0, 1) = "[reemp_direccion]"
Datos(1, 1) = Español.Cells(7, 3)
Datos(0, 2) = "[reemp_telefono]"
Datos(1, 2) = Español.Cells(8, 3)

For i = 0 To UBound(Datos, 6)
textobuscar = Datos(0, i)
objWord.Selection.Move 6, -1
objWord.Selection.Find.Execute FindText:=textobuscar
While objWord.Selection.Find.found = True
objWord.Selection.Text = Datos(1, i) 'texto a reemplazar
objWord.Selection.Move 6, -1
objWord.Selection.Find.Execute FindText:=textobuscar
Wend
Next i
objWord.Activate
End Sub

Es para pasar datos específicos de Excel a Word, pero solo es para pasar 3 campos, como puedo hacerle o que tengo que modificar para incrementarlo a un numero x de campos, es decir como pueden ser 6, 7, 8 o el numero que sea, ayuda por favor.