VBA正则表达式以数字开头和结束，中间只能出现数字，斜杠，逗号和中杠

在 VBA 中，你可以使用 `RegExp` 对象来执行则表达式匹配。以下是一个示代码，用于匹配以数字开头和，中间只能出现数字、斜杠逗号和中杠的字符串：

    Dim regex As Object
    Set regex = CreateObject("VBScript.RegExp")
    
    regex.Pattern "^[0-9][0-9,\/]+[0-9]$"
    
    Dim test As String
    testString = "1-23/4-5"
    
    If regex.TestString) Then
        MsgBox "匹配成功！"
    Else
        MsgBox "不符合要求！"
    End If
End Sub

在上面的代码中，我们使用 `RegExp` 对象创建一个正则表达式对象，并将要匹配的模式设置为 `^[0-9][0-9,\/\-]+[0-9]$`。然后，我们使用 `Test` 方法来测试一个测试字符串（在此示例中为 "12,3/4-5"）。如果匹配成功，则显示"匹配成功！"，否则显示"不符合要求！"。

请注意，在 VBA 中，斜杠 `/` 和中杠 `-` 在正则表达式中不需要进行转义，只有逗号 `,` 需要转义为 `\/`。