怎样实现文本框中有字母和数字时数字递增

Question

一文本框中有字母和数字，有单纯的数字我能让其递增，要是有字母和数字的时候我只需要增加数字，这个怎样办啊？
例如：先前值是1000，这样增加用这句Text2.Text = Val(Text2.Text)
Text2.Text = Text2.Text + 1就搞定，要是文本框中是这样XY100，我就不知道怎样写了，请问这怎样搞定啊？？？

Answer 1

Option ExplicitPrivate Sub Command1_Click()
 Text1.Text = "XY" & (CLng(Mid(Text1.Text, 3)) + 1)
End SubPrivate Sub Form_Load()
  Text1.Text = "XY100"
End Sub

Answer 2

Option ExplicitPrivate Sub Command1_Click()
 Text1.Text = "XY" & (CLng(Mid(Text1.Text, 3)) + 1)
End SubPrivate Sub Form_Load()
  Text1.Text = "XY100"
End Sub