Buen día, tengo un numero de 15 cifras entero y quiero separar sus cifras y guardarlas, mediante una macro.

Te preguntaría por qué con una macro, pero en fin, podrías hacer algo de este estilo...

Const ejemplo = "181114082910052"
Public Sub macro()
Dim numero(1 To 15) As Byte
Dim i As Integer
i = 1
Do While i <= Len(ejemplo)
    numero(i) = Mid(ejemplo, i, 1)
    i = i + 1
Loop
'Chequeo
i = 1
Do While i <= Len(ejemplo)
    Debug.Print numero(i)
    i = i + 1
Loop
End Sub

Salu2

¡Gracias! , el motivo de que necesite una macro es porque tengo una macro grande y necesito que una variable se divida de esta forma