VB6.0中怎么实现对text中输入的数值进行判断。

Question

例如，在text2中要求输入12个数字组成的数值，但是要求的是这个数值必须前三位是123， 否则的话就提示错误，程序停止运行，焦点返回text1。如果符合要求的话，提示输入数据正确，焦点返回到text1，然后在text1中输入数值后，焦点返回到text2. 如此的可以不断的运行下去。。。。。 跪求高手指点。。。。。。。。。。。。。。。。。。

Answer 1

判断前三位是否为123可以用mid函数！他可以返回指定位置指定位数的值！你可以用他返回从第一位到第三位的数！字数可以用len函数

Answer 2

我也是一个初学者，我想这也许可以用这样来实现
PrivateSubRichTextBox1_Change()
Dima,b,i
IfRichTextBox1.SelStart<4ThenExitSub
b=RichTextBox1.SelStart
Fori=1To4
RichTextBox1.SelStart=RichTextBox1.SelStart-1
RichTextBox1.SelLength=4
Next
IfRichTextBox1.SelText="echo"Then
DoWhileAsc(RichTextBox1.SelText)<>13AndRichTextBox1.SelStart<>0
RichTextBox1.SelStart=RichTextBox1.SelStart-1
RichTextBox1.SelLength=4
IfRichTextBox1.SelText="echo"Then
RichTextBox1.SelStart=b
RichTextBox1.SelLength=0
ExitSub
EndIf
Loop
RichTextBox1.SelStart=b-4
RichTextBox1.SelLength=4
RichTextBox1.SelBold=True
EndIf
RichTextBox1.SelStart=b
RichTextBox1.SelLength=0
RichTextBox1.SelBold=False
EndSub