Ayuda insertar texto en richtextbox

[atorrante]

hola a todos, ojala me puedan ayudar, no es algo muy dificil pero no lo manejo.
Necesito insertar un texto desde un boton a donde se ponga el cursor de un richtextbox pero sin eliminar
lo que ya contiene ese richtextbox

por ej.
holaholahola<textoinsertado>holaholahola

(Necesito que me digan lo que debo poner en el boton ke envia el texto, porque lo envia pero borra lo que dice ahi) por que yo lo hago así

Private Sub Picture1_Click()
RTB.Text = "textoinsertado"
End Sub

y me borra todo lo que dice holaholahola.. y me keda solo textoinsertado

Espero alguna respuesta..
GRACIAS

pd: es en VB6

[Insomnia]

Hola

Sería algo como esto:

Código:

Dim ntexto As String
    ntexto = Left(RText.Text, RText.SelStart)
    ntexto = ntexto & "textoinsertado"
    ntexto = ntexto & Mid(RText.Text, RText.SelStart, Len(RText.Text) - RText.SelStart)
    RText.Text = ntexto

Donde RText es el RichTextBox y ntexto una variable de tipo String, con SelStart detecto la posición en la que se encuentra el cursor, y meto la primera parte en la variable, luego agrego el texto que me interesa y finalmente cojo la parte derecha del texto original.

--Saludos--

[atorrante]

Gracias por responder.. despues de escribir el mensaje intente e intente hacerlo..
el resultado el siguiente:

Código:

Private Sub Command1_Click()
RTB.SelText = "textoinsertado"
RTB.SetFocus
End Sub

*RTB = Richtextbox

es bastante básico, no lo manejaba, quizas no es lo más adecuado.. pero funciona.
lo dejo por si le es de ayuda a otro perdido como yo xD

y denuevo muchas gracias por tomarte un segundo y responder..

Saludos.