access窗体只能输入2个数字

有个日文开发的access条码系统，有个地方只能输入2个数字，现在想改成能输入三个数字的，不过看掩码那里是空白的好像没有限制，代码是
Private Sub txt_Lot_Seq_NO_AfterUpdate()
If (LenB(StrConv(Me.txt_Lot_Seq_NO.Text, vbFromUnicode)) > 3) Then
Me.txt_Lot_Seq_NO = Left$(Me.txt_Lot_Seq_NO.Text, 3)
End If
End Sub

Private Sub txt_Lot_Seq_NO_BeforeUpdate(Cancel As Integer)

End Sub

Private Sub txt_Lot_Seq_NO_KeyPress(KeyAscii As Integer)
If (LenB(StrConv(Me.txt_Lot_Seq_NO.Text, vbFromUnicode)) > 1 And KeyAscii <> 8) Then
KeyAscii = 0
End If
End Sub

有没办法解决可以让它输入三个数字的，谢谢
If (LenB(StrConv(Me.txt_Lot_Seq_NO.Text, vbFromUnicode)) > 3) Then
Me.txt_Lot_Seq_NO = Left$(Me.txt_Lot_Seq_NO.Text, 3)
End If
End Sub
我把这里的两个3改成4了，然后把下面那句
If (LenB(StrConv(Me.txt_Lot_Seq_NO.Text, vbFromUnicode)) > 1 And KeyAscii <> 8)这里的那个1也改成4了

这样就可以正常输入了，不过输入的时候是三位数，打印出来却只有两位数，只显示后面两位，yun4啊，感激不尽。。

打印ACCESS窗体问题 access窗体查询 access 窗体问题 从键盘上输入4个数，编写程序，通过Inputbox函数输入数据，在窗体上显示和及平均值 关于access中的窗体问题 access多重窗体怎么做？ 简述Access窗体的主要功能？ 编写一个程序,输入3个数,然后按由大到小的顺序在窗体上显示这三个数． 用VB编写“任意输入10个数，将它们由大到小进行排序输出到窗体上”的程序 请高手明示Access中如何将窗体中输入的数据追加到原始数据表中？