正则表达式仅返回1个匹配项

我的VBA函数应采用一个字符串来引用一系列单位（例如"WWW1-5"），然后返回另一个字符串。

我想将参数放在逗号分隔的字符串中，因此"WWW1-5"应成为"WWW1, WWW2, WWW3, WWW4, WWW5".

并非总是一个数字。例如，我可能需要分开"XXX11-18"或类似的东西。

我从没使用过正则表达式，但是一直在尝试不同的方法来完成这项工作，而且似乎只能找到1个匹配项而不是3个匹配项。

有任何想法吗？这是我的代码：

Private Function split_group(ByVal group As String) As String   
    Dim re As Object
    Dim matches As Object
    Dim result As String
    Dim prefix As String
    Dim startVar As Integer
    Dim endVar As Integer
    Dim i As Integer

    Set re = CreateObject("vbscript.regexp")
    re.Pattern = "([A-Z]+)(\d+)[-](\d+)"
    re.IgnoreCase = False
    Set matches = re.Execute(group)

    Debug.Print matches.Count

    If matches.Count <> 0 Then
        prefix = matches.Item(0)
        startVar = CInt(matches.Item(1)) 'error occurs here
        endVar = CInt(matches.Item(2))
        result = ""

        For i = startVar To endVar - 1
            result = result & prefix & i & ","
        Next i

        split_group = result & prefix & endVar
    Else
        MsgBox "There is an error with splitting a group."
        split_group = "ERROR"
    End If

End Function

我尝试设置global = true，但我意识到这不是问题。该错误实际上是在带有注释的行上发生的，但我认为是因为只有1个匹配项。

我尝试使用谷歌搜索，但是每个人的情况似乎都与我的有所不同，并且由于这是我第一次使用RE，所以我认为我对模式的理解不足以了解是否可能是问题所在。

谢谢！