Не удаляются повторно встречающиеся слова в строке или удаляются не те

Sub Slova()
Dim text As String
text = InputBox("Vvedite stroky")
a = Split(text)
ReDim b(0)
b(0) = ""
For i = 0 To UBound(a)
For j = 0 To UBound(b)
If a(i) = b(j) Then bl = True: Exit For
Next
If Not bl Then ReDim Preserve b(0 To UBound(b) + 1): bl = False: b(UBound(b)) = a(i)
Next
MsgBox Join(b)
End Sub

Option Explicit '!!!!!
 
Sub Slova()
Dim text As String, U As Integer
Dim a() As String, b() As String, I As Integer, J As Integer
text = Trim(InputBox("Vvedite stroky", , "  123  234   123    234  123"))
While InStr(1, text, "  ")
  text = Replace(text, "  ", " ")
Wend
a = Split(text)
For I = 0 To UBound(a)
  For J = 0 To U - 1 'UBound(b)
    If a(I) = b(J) Then Exit For
  Next J
  If J = U Then ReDim Preserve b(U): b(U) = a(I): U = U + 1
Next I
MsgBox Join(b)
End Sub

Sub Slova2()
    Dim a$(), i&
    a = Split(Application.Trim(InputBox("Vvedite stroky", , "  123  234   123    234  123")))
    With CreateObject("scripting.dictionary")
        For i = 0 To UBound(a)
            If Not .exists(a(i)) Then .Item(a(i)) = vbNullString
        Next
        MsgBox Join(.keys)
    End With
End Sub

a = Split(InputBox("Vvedite stroky", , "  123  234   123    234  123"))

Text = Application.WorksheetFunction.Trim(Text)

Sub werw()
    Text = " hwfks ,mnbckj   sdbckb khfkjhfhf ljh'  dljpjpjdp    jdpqjd    pqwjd  poq "
    Text1 = Trim(Text)
    Text2 = Application.WorksheetFunction.Trim(Text)
End Sub

Sub werw()
    Text = " hwfks ,mnbckj   sdbckb khfkjhfhf ljh'  dljpjpjdp    jdpqjd    pqwjd  poq "
    Text2 = Application.WorksheetFunction.Trim(Text)
    Text3 = Application.Trim(Text)
    MsgBox Text2 = Text3
End Sub

Public Sub c()
    ss = InputBox("Vvedite stroky", , "  The quick brown fox jumps over the lazy dog. dog lazy the over jumps fox brown quick The")
    Set re = CreateObject("vbscript.regexp")
    Do
        re.Pattern = "\b(\w+)\b.*\b\1\b"
        Set mtchs = re.Execute(ss)
    If mtchs.Count = 0 Then Exit Do
        re.Pattern = mtchs(0).SubMatches(0)
        ss = re.Replace(ss, "")
    Loop
    MsgBox ss
End Sub