主题：[求助]正则表达式

老师，我想在某列录入数据时做过限制，只能录入下面这种格式数据：

00001

00001，00002

00001，00002，00003

。。。。

请问这个正则表达式该如何写

参考

Dim str1 As String = "00001,00002,00003"
Dim str2 As String = ""
For Each s As String In str1.split(",")
    str2 &= "[0-9]{5},"
Next
str2 = "^" & str2.trim(",") & "$"
Dim rgx = new System.Text.RegularExpressions.Regex(str2, System.Text.RegularExpressions.RegexOptions.IgnoreCase)
If rgx.isMatch(str1) Then
    msgbox("匹配")
Else
    msgbox("不匹配")
End If