Ensuring textbox has specified number of digits

AndyE,

Try this

Private Sub TextBox1_Change()
    If Len(Me.TextBox1.Value) = 0 Then Exit Sub
    With Me.TextBox1
        .Value = Format$(Val(.Value), "000000")
    End With
End Sub