主题：[求助]规范数字串

老师，我想把按钮代码放入“数据”表的DataColChanged，当[案号]列变动时，[调整后案号]相应变化，这段代码应该怎样修改？

For Each dr As DataRow In DataTables("数据").Select("")
    Dim mc = System.Text.RegularExpressions.Regex.Matches(dr("案号"), "(?<=.+?)[0-9]+(?=号)")
    Dim i As Integer = val(mc(0).value)
    dr("调整后案号") = System.Text.RegularExpressions.Regex.replace(dr("案号"), "(?<=.+?)[0-9]+(?=号)", Format(i, "0000"))
Next

谢谢！