正则表达式，实现VB内的Split功能

您好，我的字符串是一段不定长的，不规则的字符串，可能以不同的字符分割，如“-”，“：”等，

我希望可以通过让外部指定正则表达式，达到Split函数的功能，然后抽取指定的子串。

请问我该如何实现，
非常感谢

为什么要正则呢，用split不是很简单吗

'此代码由“正则测试工具 v1.1.35”自动生成，请直接调用TestReg过程
VB code

Private Sub TestReg()
    Dim strData As String
    Dim reg As Object
    Dim matchs As Object, match As Object

    strData = "a-bcd-4324-f23"

    Set reg = CreateObject("vbscript.regExp")
    reg.Global = True
    reg.IgnoreCase = False
    reg.MultiLine = True
    reg.Pattern = "(.+?)(?:-|\b)"
    Set matchs = reg.Execute(strData)
    For Each match In matchs
        'Debug.Print match.Value
        Debug.Print match.SubMatches(0)
    Next
End Sub