Split Text from cell

I have trying to split numbers from letter a cell. The numbers can appear before or after the text, and sometimes the numbers can have two hypens (for SSN), two forward slashes (/) for dates, or a decimal point and/or dollar sign. if the numbers appear first, I need them to stay in the activecell and move the letters one cell to the right. If the letters appear first in the cell, I need the numbers move one cell to the right.

I have a script below that uses Regexp, the only problem is that is only works for the hypens and I need to add in the two backslashes, decimal point, and dollar sign. I tried a few variations but to no avail. Any ideas? Thanks..

Sub SplitTextNum()
Dim r As Range, rC As Range
Dim v As Variant
 
Set r = ActiveCell

With CreateObject("VBScript.RegExp")
    .Pattern = "(\d+(\-\d+-\d+)?|\D+)"
    .Global = True
    For Each rC In r
        v = Split(Mid(.Replace(rC.Value, "|$1"), 2), "|")
        rC.Resize(, UBound(v) + 1).Value = v
    Next rC
End With
End Sub

I think I have it..the only thing I cannot figure out is the "literal" dollar sign that would be part of the number. Below is the revised code. Is there a way to set it up to ignore dollar signs?

Sub SplitTextNum()
Dim r As Range, rC As Range
Dim v As Variant
 
Set r = ActiveCell

With CreateObject("VBScript.RegExp")
    .Pattern = "(\d+([/.-]\d+\d+([/.-]\d+))?|\D+)"
     .Global = True
    For Each rC In r
        v = Split(Mid(.Replace(rC.Value, "|$1"), 2), "|")
        rC.Resize(, UBound(v) + 1).Value = v
    Next rC
End With
End Sub

No, it does not have to be RegEx. Whatever works is fine.

See attached spreadsheet. Sheets labeled Before and After.

Thanks.

No, would need text and numbers separated. Also, it letters are first, then numbers would be shifted right, if numbers are first, then letters would be shifted right.

Thanks. It worked.