Textbox - Numeric format & character lenght - VBA

[jonh]

Hi,

I want to create a textbox allowing users to enter a numeric value which is eight (8) characters in lenght.

Is it possible to check for both input characteristics (numeric format and lenght of 8) and if either is incorrect an error message is displayed?

Thanks in advance for all help.
Jonh

 

[jindon]

try

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With TextBox1
    If (Len(.Value) > 0) * (Not .Value Like "########") Then
        MsgBox "8 digits numbers only"
        Cancel = True
    End If
End With
End Sub

 

[mikerickson]

This might work

Private Sub TextBox1_Change()
    Static abort As Boolean
    If abort Then abort = False: Exit Sub
    With Me.TextBox1
        abort = True
        .Text = Right(Format(Val(.Text), "00000000"), 8)
    End With
End Sub

 

[jonh]

Guys,

Many thanks for your help.

Jon