Dim atName As New clsAutoText Dim atNumber As New clsAutoText Private Sub Form_Load() With atName Set .txt = Text1 .AlfaConstrain = amAlfa .AllCapital = True .TrimSpace = True .NoDSpace = True .SelectOnFocus = True .TabOnEnter = True End With With atNumber Set .txt = Text2 .AlfaConstrain = amNumeric .SelectOnFocus = True .TabOnEnter = True End With End Sub