Hola chicos, quiero saber cómo escribir cada palabra en una frase en una nueva línea en un richtextbox. Digamos que la frase es esta "Devuelve una matriz de cadenas que contiene las subcadenas en esta instancia que están delimitadas"

y el código con el que estoy trabajando es este

Dim words As String = TextBox1.Text
    Dim split As String() = words.Split(New [Char]() {" "c, CChar(vbTab)})

    For Each s As String In split
        If s.Trim() <> "" Then
            RichTextBox1.Text = (s)
        End If
    Next s

Pero con este solo escribe la última palabra de la oración. Y lo que quiero es escribir todas las palabras en una nueva línea de richtextbox.