Visual Basic para Aplicaciones - ¿Es posible la Macrosustitución en VBA?

for x = 1 to 5

   variable&(x)=variable&(x+5)

next x

Dim Variable(1 to 10) as Double 'Por ejemplo

Variable(1)=Valor

.

.

.

.

Variable(10)=Valor

For X= 1 to 5

Variable(X)=Variable(X+5)

Next X

dim dato as integer

dim dato as string

for x=1 to 5

 dato1=format(x)

 dato2=format(x+5)

 me.controls("variable"+dato)= me.controls("variable"+dato2)

next x

dim y as integer

for x=1 to 5

 y=x+5

 me.controls("variable" & x)= me.controls("variable" & x & y)

next x

Sub Macro1()

Dim Valor_01, Valor_02, n, cDato

    Valor_01 = "A1"

    Valor_02 = "B1"

    n = 0

    cDato = "Valor_" & Trim(Str(n)) & "1"

    Range(cDato).Select

'    MsgBox cDato

End Sub