clip

se la tua esigenza è solo quella di cancellare il contenuto della text puoi usare un'altra strada molto più semplice.

text1.text = ""

per semplificare, oppure potresti intercettare i tasti che ti interessano e alla pressione di questi cancelli la text o le text.

l'esempio qui sotto cancella la text se vienne premuto il tasto esc

codice:
Private Sub txtFields_KeyPress(Index As Integer, KeyAscii As Integer)

If KeyAscii = 27 Then
text1.text = ""
End If

'27 corrisponde al tasto esc puoi cambiarlo con altri

end sub
by