This should do it
Code
-------------------
Private Sub TextBox1_Change()
If Len(TextBox1.Text) = 1 Then
If TextBox1.Text = 0 Then
MsgBox "Choose a number NOT starting with 0"
TextBox1.Text = ""
End If
End If
End Su
-------------------
--
kkkni
-----------------------------------------------------------------------
kkknie's Profile:
http://www.excelforum.com/member.php...nfo&userid=754
View this thread:
http://www.excelforum.com/showthread.php?threadid=26936