Visual Basic.NET - [VB.NET] Eliminar strings iguales pero dejar sólo una en RichTextBox

mascota automovil inmueble cocina baño mascota cocina estrella

mascota automovil inmueble cocina baño estrella

Public Class FSegundario   ' Este es el formulario ...   :D)))

    Dim SeparadorSplit As Char() = {" "}

    Dim LasPalabras() As String   ' Este es un tabla de String

    Private Sub BEliminarDuplicados_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BEliminarDuplicados.Click

        Dim LasPalabrasSinDuplico As New Hashtable

        LasPalabras = RichTextBox1.Text.Split(SeparadorSplit)

        For i = 0 To LasPalabras.Length - 1

            Try

                LasPalabrasSinDuplico.Add(LasPalabras(i), Nothing)

            Catch ex As Exception

            End Try

        Next

        RichTextBox1.Clear()

        For Each Palabra As String In LasPalabrasSinDuplico.Keys

            RichTextBox1.Text &= Palabra & " "

        Next

        LasPalabrasSinDuplico.Clear()

        LasPalabrasSinDuplico = Nothing

    End Sub

End Class