Fai così

codice:
TextBox1.SelectionStart = Len(TextBox1.Text)