Prova impostando la SelStart:
codice:
Txt1.Text = Txt1.Text & "CIAO" & vbCrLf
Txt1.SelStart = Len(Txt1.Text)