关于文本框里字母+数字递增有关问题. 救呀

关于文本框里字母+数字递增问题. 救呀!
textbox   数值为ABCD0001   有什么方法让数字递增,ABCD0002   ABCD0003   ....英文字母不用递增,大家说说看,帮帮忙

------解决方案--------------------
dim s as string
s=textbox1.text
textbox1.text=left(s,4) & format(cint(right(s,4))+1, "0000 ")