Private Sub TextBox1_Change() If Len(TextBox1) = 11 Then ActiveSheet.PrintOut DoEvents TextBox1 = “” End If End Sub