convert a number into 3 digits.

A would have to be a string to save it as 3 digits with leading zeros

A = right("000" & textbox1.text,3)

Originally Posted by le6tata

You can try something like this :

Sub digit()
Dim a As Variant
a = InputBox("3 digits")
If Len(a) = 1 Then
a = "00" & a
MsgBox a
Else
End If
End Sub

Just to point out, variants should be avoided where possible as its bad programming, since we know that A is a string Dim A as String is correct!

and also the else is unnesessary, besides the faxt that if i input 10 I get 10 out rather than 010!

Try this in your UserForm Code

Please Login or Register  to view this content.

The user can only enter numbers and is limited to a total of three.

I hope this might be of some help.

@ le6tata,

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here