Ayuda para una macro de excel

La única condición es que los números deben estar como texto, cunado tenga más tiempo veré como hacerlo si el dato es numérico.
Sub Separa()
Dim Dato As String
Dim Largo As String
Dim i As Integer
Dim j As Integer
Range("A2").Select 'asumiendo que el listado comienza aquí
Do Until IsEmpty(ActiveCell)
Dato = ActiveCell
Largo = Len(Dato)
j = Int(Largo / 4)
For i = 1 To j
If i = 1 Then
Dato = Left(Dato, (i * 4)) & " " & Right(Dato, Largo - (i * 4))
ElseIf i = j Then
Exit For
Else
Dato = Left(Dato, (i * 4) + i - 1) & " " & Right(Dato, Largo - (i * 4))
End If
Next
ActiveCell = Dato
ActiveCell.Offset(1, 0).Select
Loop
Cells(ActiveCell.Row - 1, ActiveCell.Column) = Dato
End Sub