Private Sub Form_Load()
    sevText1.Format = rsUser
End Sub
 
Private Sub Command1_Click()
    sevText1.Mask = "K/#####"
End Sub
 
Private Sub Command2_Click()
    sevText1.Mask = ""
    Debug.Print sevText1.MaxLength ' = 7
End Sub