求助Year(Date) & "-" & "0001"问题

各位版主，各位朋友：
    给你们拜年了！
    祝各位新年快乐，大吉大利。想要的都拥有，期待的都实现。平安、健康、富足、好运不断！



blnAdd = True
            rs2.Open "select * from 数据表", CNN, adOpenKeyset, adLockOptimistic
            If rs2.RecordCount > 0 Then
                 rs2.MoveLast
                Text1 = Year(Date) & "-" & Format$(Val(Right$(rs2.Fields("病历号"), 3)) + 1, "0000")
           Else
                   Text1 = Year(Date) & "-" & "0001"
          End If
这是年份加数字组成的序号，当年份更新后，数字在上一年的基础上继续加1.
如2017年最后一个序号是2017-6666,到2018年第一个序号是2018-6667
我想要的是，到2018年后，序号从2018-0001开始。即年份更新后序号从年份-0001开始。
请帮助修改以上代码。
谢谢！