Como guardo los datos de palabras(i) en un vector, palabras(j) en otro vector y palabras(k) en otro vector

Sub tretorno()
Dim celda As Range
Dim n As Integer
Dim palabras() As String
Dim value() As String
Dim separador As String
Dim texto As String
separador = "/"
Set cell = Worksheets("Hoja1").Cells.Find("Parametro") 'busca name
indCol = cell.Column
NumColums = Sheets("Hoja1").Cells(2, Cells.Columns.Count).End(xlToLeft).Column
Numfilas = Application.CountA(Sheets("Hoja1").Range("A:A"))
For fila = 1 To Numfilas - 1 'control de columnas
Range(Cells(fila + 1, 21), Cells(fila + 1, 80)).Select
For Each celda In Selection
texto = celda.value
palabras = Split(texto, separador)
n = UBound(palabras)
For i = 0 To n
variable1 = palabras(i)
i = i + 2
Next i

For j = 1 To n
variable2 = palabras(j)
j = j + 2
Next j

For k = 2 To n
variable2 = palabras(k)
j = k + 2
Next k

Next celda
Next fila

End Sub