E' rimasto comunque un problema.
Ho aspettato che rientrassi dalle ferie per fartelo presente (...per tenerti in allenamento... :-)), se avvii il programma senza inserire caratteri nella TextArea e premi il tasto BackSpace va in errore 'Out of Bounds'.
Lascio comunque [RISOLTO] in oggetto, perchè aggiungendo un CATCH alla fine il programma non va in blocco, almeno per il momento fino a nuovi sviluppi.
Ne aproffitto per un'altra questione inerente sempre la TextArea:
volendo inserire le righe controllate come da tuo codice le volevo inserire in una GridView e l'unica soluzione che mi è venuta in mente è la seguente
PUBLIC SUB BtnInsCommenti_Click()
DIM i AS Integer
FOR i = 0 TO TextArea1.Line
i = GridView1.Rows.Count
GridView1.Rows.Count = GridView1.Rows.Count + 1
GridView1[i, 1].Text = TextArea1.Text
INC i
NEXT
END
se inserisco nella TextArea una sola riga, viene inserita correttamente nella GridView, ma se nella TextArea inserisco più righe nella GridView le inserisce tutte in un unica riga, non ho trovato soluzione.