Private Sub Form_Load()
    Text1.Tag = Len(Text1.Text)
End Sub
 
Private Sub Text1_Change()
    If Len(Text1.Text) > CInt(Text1.Tag) Then
        If Len(Text1.Text) - CInt(Text1.Tag) > 1 Then
            MsgBox "Es wurde eingefügt, hier entsprechend reagieren"
            Text1.Text = ""
        Else
            MsgBox "Es wurde getippt"
            Text1.Tag = Len(Text1.Text)
        End If
    Else
        Text1.Tag = Len(Text1.Text)
    End If
End Sub