This may not be what you are looking for but anyway...
Code:
rtf1.SelStart = 0 'Go to the start of the textbox
rtf1.SelLength = Len(rtf1.Text) 'Select everything
rtf1.SelAlignment = 1 'Put everything to the right
rtf1.SelStart = Len(rtf1.Text) 'Go to the end of the box
did this help?