Sacar palabras repetidas de un textbox

[USUARIO_DE_SOFTWARE_LIBRE]

Hola, tengo este problemilla... tengo un textbox con algunas palabras y necesito sacar las palabras repetidas.
hice este code:

Código [Seleccionar] Expandir


Dim a, b As Integer
dim url() as string
url() = Split(Text2.Text, vbCrLf)

For a = 0 To UBound(url)
For b = 1 To UBound(url)
If url(a) = url(b) Then
MsgBox "palabra repetida: " & url(a)
End If
Next b
Next a

por ejemplo en el textbox tengo esto:
linux
windows
windows
unix
windows
rojo
blanco
rojo
y me debería decir que palabras están repetidas... pero me dice cualquier cosa...
¿Cuál puede ser el problema?
ah, y otra cosa, como puedo hacer para sacar el texto repetido?
saludos

[ReViJa]

Mira asi:

Código [Seleccionar] Expandir

Dim a, b As Integer
Dim url() As String
url() = Split(Text1.Text, " ")

For a = 0 To UBound(url)
  For b = a + 1 To UBound(url)
    If url(a) = url(b) Then
      MsgBox "palabra repetida: " & url(a)
    End If
  Next b
Next a

[VirucKingX]

Mira asi:

Código [Seleccionar] Expandir

Dim a, b As Integer
Dim url() As String
url() = Split(Text1.Text, " ")

For a = 0 To UBound(url)
  For b = a + 1 To UBound(url)
    If url(a) = url(b) Then
      MsgBox "palabra repetida: " & url(a)
    End If
  Next b
Next a

funciona excelente, tambien estaba buscando eso

Bye y gracias

[USUARIO_DE_SOFTWARE_LIBRE]

mil gracias Tesis !
las cosas simples son las que siempre cuestan mas xD
que bueno que te sirve a vos tambien VirucKingX

tengo otra cosa que no me sale... tengo que sacar las palabras repetidas del textbox (pero dejar una), por ejemplo que esta lista:
linux
windows
windows
unix
windows
rojo
blanco
rojo
quede así:
linux
windows
unix
blanco
rojo

feliz navidad