Public Function getNumberSequence(ByVal fromText As String) As String
On Error GoTo errHandle
    Static pReg As Object
    Dim pItem As Object, sOut As String
    sOut = ""
    For Each pItem In pReg.Execute(fromText)
        If sOut = "" Then
            sOut = pItem.SubMatches(0)
        Else
            sOut = sOut & "," & pItem.SubMatches(0)
        End If
    Next
    getNumberSequence = sOut
Exit Function
errHandle:
    Set pReg = CreateObject("VBScript.RegExp")
    pReg.Global = True: pReg.Pattern = "\((\d+(?:(?:\-|,)\d+)?)(?=\))"
    Resume
End Function