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

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

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

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

请注意，在 VBA 中，反斜杠 `\` 在字符串中需要使用两个反斜杠 `\\` 来表示一个普通的反斜杠字符。