Sub testVBS()
Dim r As Range
With CreateObject("VBScript.RegExp")
.Pattern = "\D+"
.Global = True
.IgnoreCase = True
For Each r In Range([A1], [A65536].End(xlUp))
r.Offset(, 1).Value = .Execute(r.Value)(0)
r.Offset(, 2).Value = CDbl(.Replace(r.Value, ""))
Next
End With
End Sub