Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(TextBox1.Value) Then
If Len(Trim(TextBox1.Value)) = 1 Then
TextBox1.Value = Format(CLng(TextBox1.Value), "0000")
Else
MsgBox "Single Digit Numbers only"
TextBox1.Value = ""
Cancel = True
End If
Else
MsgBox "Entry must be numeric and single digit"
TextBox1.Value = ""
Cancel = True
End If
End Sub

--
Regards,
Tom Ogilvy

"Kevin" wrote in message
...
I'd like users to be able to enter single digit numbers into a TextBox but
have the code format this as a four-character text string, e.g., "0000". Is
this possible?

Thanks.


Kevin