Formatting numbers in a userform textbox

[newbieX]

I have the following code behind a textbox. I expect it to complain if the number enter is greater than 999.99, yet I can add 345566 and it gets accepted. What am I missing?

Private Sub EntryBox12_AfterUpdate() 'Start Mile Marker
If EntryBox12.value <> "" Then
    With EntryBox12
        If IsNumeric(.Text) = False Then
            .Text = "Enter Number"
            MsgBox "Enter a number.", vbExclamation
            Exit Sub
        Else
            .value = Format(EntryBox12.value, "##0.0")
        End If
    End With
End If
End Sub

 

[Zelcombe]

Hello. I found this thread while searching for something similar. Maybe it will help you out

https://www.mrexcel.com/forum/excel-questions/395389-restrict-textbox-values-userform.html

 

[newbieX]

Hello. I found this thread while searching for something similar. Maybe it will help you out

https://www.mrexcel.com/forum/excel-questions/395389-restrict-textbox-values-userform.html

My code restricts the textbox to just numbers but I am of the understanding that the code:

.value = Format(EntryBox12.value, "##0.0")

is stating that entry can only be a maximum of 4 digits long. 3 numbers before the decimal place and 1 after it. Thus 123.4, 12.3. 1.2, 0.1 are all acceptable but 1234.5 is not. However on the userform I can enter 1234.5 without complaint. What am I misunderstanding about the format code?

 

[jproffer]

If you want to restrict the length of the entry, you could do this:

If Len(EntryBox12.Value)>5 Then
     MsgBox "Please enter a valid number"
     Exit Sub
End If