All'interno di questa If
devi considerare che, se il dato ricevuto e' il back space (ASCII 8), non devi aggiungere Rx$ al testo ma eliminare dal testo l'ultimo carattere a destra ...codice:If Len(Rx$) Then ' Se ho ricevuto qualcosa lo scrivo nella TextBox frm_Terminal.Rich_terminal.Text = frm_Terminal.Rich_terminal.Text & Rx$ End If