主题：编号固定位数

If e.DataCol.name="编号" Then
   If e.DataRow.isnull("编号")=False Then
        Dim s As String = e.DataRow("探伤编号")
       If val(s) < 99999 AndAlso s.IndexOf("-") <0  Then
           e.DataRow("探伤编号") = Date.today.year - 2000 & "-" & e.DataRow("编号")
       End If
   End If
End If

老师我的编号列是整数列，探伤编号是文本列现在我在编号列输入1可以变成0001，探伤编号列显示为15-1，如果探伤编号要为15-0001这个代码要怎么写？