formatting text in TextBox in UserForm

[Kevin]

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

 

[Tom Ogilvy]

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

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?

 

[Kevin]

Thanks Tom. It works like a charm.

Kevin

-----Original Message-----
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

into a TextBox but
have the code format this as a four-character text string, e.g., "0000". Is
this possible?


.