adding text to text

I have an app where I click a button and it inserts text in to a richtextbox, I can add the text at the end. but I want to know is how do I add text to the file at the point where the cursor is

i.e.

for all intents and purposes | will stand for the cursor

this that and the | thing

after the button it will say

this that and the other| thing

Here is a real basic example. Run this, click somewhere in the middle of the sentence, then click command 1. It will insert "Hello World" at the cursor position. If you had a section higlighted, it would replace the highlighted text.

Hope this gives you a start . . .

VB Code:

Private Sub Form_Load()
    rtb1.Text = "Forescore and seven years ago our forefathers, blah, blah, blah"
End Sub
Private Sub Command1_Click()
    rtb1.SelText = "Hello World"
End Sub

The other way is to use the Sendkeys command after clicking to position the cursor to insert text. this simulates you typing the characters from the keyboard.


Sendkeys "What ever your text is"