How to get the space base on the number afters ?

i found this one maybe it could help

Public Function AddSpaces(r As String) As String
Dim s As String
With CreateObject("vbscript.regexp")
    .Pattern = "([a-z]|\d)([A-Z])"
    .Global = True
    s = .Replace(r, "$1 $2")
End With
AddSpaces = s
End Function

Formula:

=AddSpaces(A1)

NOT MY CODE. It say it's from MOREFUNC.