RichTextBox

How can I put the curser at the end of the text after I refresh the RichTextBox everytime?
Thanks

Hi ..After having the text in RTB u use the code below I have written for Command1_click..

Private Sub Command1_Click()
RichTextBox1.SelStart = Len(RichTextBox1.Text)
RichTextBox1.SetFocus
End Sub

Private Sub Form_Load()
RichTextBox1.Text = "fkj hr hrejreh tre.t erthejt hrej ehyjeherjyhjyyhj yhtj7rt"
End Sub