fjern mellemrumseperarede dobbeltværdier i VBA string

Public Sub Test()
Dim A As Variant, Ord As String, I As Integer, X As Integer

    Ord = "test slp rma rma slp uyt"
    A = Split(Ord, " ")
   
    For I = 0 To UBound(A)
        For X = I + 1 To UBound(A)
            If A(I) = A(X) Then A(X) = Empty
        Next
    Next
   
    Ord = ""
   
    For I = 0 To UBound(A)
        If Not A(I) = Empty Then
            Ord = Ord & A(I) & " "
        End If
    Next
   
    Ord = Trim(Ord)
    MsgBox Ord
End Sub

hvordan går det ????

perfekt, det virkede, smid et svar

et svar ;-))