VB的TEXT中怎么限制只能输入100的整数倍且小于5000的数字,如果不是提示错误

VB的TEXT中怎么限制只能输入100的整数倍且小于5000的数字,如果不是提示错误
VB的TEXT中怎么限制只能输入100的整数倍且小于5000的数字,如果不是提示错误

VB的TEXT中怎么限制只能输入100的整数倍且小于5000的数字,如果不是提示错误
Private Sub Text1_LostFocus()
If Mid(Text1.Text,Len(Text1.Text) - 1,2) "00" Then
MsgBox "输入的不是100的倍数!"
Text1.SetFocus
End If
End Sub