Insertar linea richtextbox

[costeta2]

Hola, estoy haciendo un proyecto para visualisar documentos y poder crear nuevos ficheros y carpetas.

En el proyecto he incluido un ricthtextbox donde tiene la funcion de guardar los cambios en mi pc, En cada commandbutton he puesto la funcion richtextbox.textrf = Se ha creado el siguiente archivo...

El problema que tengo es que cuando pulso diferentes commandbuttons, El richtextbox se sobreescribre.

Me gustaria saber como poder insetar un salto de linea cada vez, para que en vez de sobreescribir lo que ya tengo escrito, siga escribiendo abajo.

Con esto me funciona:
Dim j As Integer
For j = 0 To Form4.List1.ListCount - 1

Dim ntexto As String

Form3.RichTextBox1.UpTo "" + fecha + "" & " " & "" + ora + "" & ":" & " " & "Se han copiado los siguientes archivos:" & "" + Form4.List1.List(j) + "" & " " & "a la siguiente dirección:" & "" + carpetacreada + """", True, True

ntexto = ntexto & "" + fecha + "" & " " & "" + ora + "" & ":" & " " & "Se han copiado los siguientes archivos:" & "" + Form4.List1.List(j) + "" & " " & "a la siguiente dirección:" & "" + carpetacreada + """" & vbCrLf

Form3.RichTextBox1.TextRTF = ntexto

Next j

El problema que tengo es que eso solamente me sirve para un determinado command button, pero cuando pulso otro command button, que en vez de copiar los archivos, los crea, en el log desaparece lo anterior y empieza a escribir de nuevo. Y no puedo decirle richtextbox1.UpTo porque no se cual sera el ultimo texto (son variables)

Porfavor necesito alguna ayuda