Oi gente eu quero saber como escrever cada palavra em uma frase em uma nova linha em um richtextbox vamos dizer que a frase é esta "Retorna uma matriz de string que contém os substrings nesta instância que são delimitados"

e o código que eu estou trabalhando é isso

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

Mas com este apenas escreve a última palavra da frase. E o que eu quero é escrever todas as palavras em uma nova linha do richtextbox.