Verificare che siano stati aggiunti uno o più caratteri a una TextArea con l'opzione "Incolla"

Per verificare che siano stati aggiunti uno o più caratteri a una TextArea con l'opzione "Incolla" (Paste) del tasto destro oppure con la combinazione dei tasti Ctrl+V, sarà possibile adottare il seguente codice:

Private b As Boolean


Public Sub TextArea1_Change()

  If b Then Print "Caratteri incollati"

End


Public Sub TextArea1_MouseDown()

 If Mouse.Right Then b = True

End