Pasar valor de variable

Hola Elsa
Espero comos iempre que puedas ayudarme con esta simpleza que no puedo resolver. Tengo esta macro:
Sub HexDecimal()
Sheets("Hoja1").Select
Range("B20").Select
mLargo = Len(ActiveCell.Value)
ActiveCell.Offset(1, 0).Value = mLargo
For i = 1 To mLargo
'Necesito que el valor de i aparezca en el segundo argumento de esta formula
ActiveCell.Offset(0, i).FormulaR1C1 = "=MID(RC[-1],1,1)"
'para que cuando cambie el valor de i, sea tomado en la formula como:
'ActiveCell.Offset(0, i).FormulaR1C1 = "=MID(RC[-1],i,1)"
'el valor de i correspondería a la posición de un caracter de un texto en una celda
Next i
End Sub
Para hacer algo como esto:
ActiveCell.FormulaR1C1 = "=MID(R20C2,1,1)"
Range("D20").Select
ActiveCell.FormulaR1C1 = "=MID(R20C2,2,1)"
Range("E20").Select
ActiveCell.FormulaR1C1 = "=MID(R20C2,3,1)"
Range("F20").Select
Gracias