De izquierda a derecha no puedes hacerlo.
De derecha a izquierda, es como si fuera un numero normal y le das a formato de Celdas->Número->Usar separador de miles y 0 posiciones decimales.
Te he creado una función para ponerlos de izquierda a derecha
Public Function Puntos(Texto As String, Num_Puntos As Integer) As String
Dim i As Integer
Puntos = ""
For i = 1 To Len(Texto)
Puntos = Puntos + Mid(Texto, i, 1)
If ((modulo(i, Num_Puntos) = 0) And (i <> Len(Texto))) Then Puntos = Puntos + "."
Next i
End Function
--------------------------------------------------------------------------------------------
Public Function modulo(Numerador As Integer, Denominador As Integer) As Integer
Dim i As Double
i = (Numerador / Denominador)
modulo = (Numerador / Denominador)
modulo = (i - modulo) * Denominador
End Function
Has de poner las 2 funciones en un modulo, no se si sabes como se pone.
12223322. Suponiendo que el numero está en A1.
=Puntos(A1;2) Te queda 12.22.33.22
=Puntos(A1;3) Te queda 122.233.22 Como querías
=Puntos(A1;4) Te queda 1222.3322