如何从vba中的字符串中提取数字组

我有一个以下形状的字符串：

RRP 90 AVE DE GAULLE 92800 PUTEAUX 0109781431-0149012126

数字可能由连字符以外的其他字符（例如空格）分隔。我知道如何用 len() 来区分它们。

我需要将每个数字字符串单独存储（例如在数组中），以便我可以使用 len() 区分它们，然后使用它们。

我已经找到了如何从字符串中删除字符：如何从字符串中查找数字？ https://stackoverflow.com/questions/7239328/vba-how-to-find-numbers-from-string

但这不适合我的问题...

你能指导我找到一个可以帮助我解决这个问题的函数或代码吗？

这将比循环运行得快得多

Public Function NumericOnly(s As String) As String
    Dim s2 As String
    Dim replace_hyphen As String
    replace_hyphen = " "
    Static re As RegExp
    If re Is Nothing Then Set re = New RegExp
    re.IgnoreCase = True
    re.Global = True
    re.Pattern = "[^0-9 -]" 'includes space, if you want to exclude space "[^0-9]"
    s2 = re.Replace(s, vbNullString)
    re.Pattern = "[^0-9 ]"
    NumericOnly = re.Replace(s2, replace_hyphen)
End Function