Public Sub Main()
Dim sString As String[] = Split("Now is the time for all the good men to come to the aid of the good party 1 2 1 3 3 3 2 1 1 2 3 4 33 2 5 4 333 5", " ")
Dim sFix As New String[]
Dim sTemp As String

For Each sTemp In sString
  sTemp &= " "
  If InStr(sFix.Join(" ") & " ", sTemp) Then Continue
  sFix.Add(Trim(sTemp))
Next

Print sFix.Join(" ")

End