Вывести все слова, которые встречаются в ряде всего один раз - VB

Формулировка задачи:

Задано рядок символов, в котором содержатся от 1 до 30 символов, в кождом из которых от 1 до 5 маленьких украинских букв, между соседними словами - запятая, за последним словом точка. Вывести все слова, которые встречаются в ряде всего один раз. Желательно в Visual Basik 3.0)

Решение задачи: «Вывести все слова, которые встречаются в ряде всего один раз»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
    Dim S, i As Integer, Dictionary
    Set Dictionary = CreateObject("Scripting.Dictionary")
    S = InputBox("Введите фразу", , "один, два, три, чотири, п'ять, три, два, один.")
    S = Replace(Replace(S, ",", " "), ".", " ")
    Do While InStr(1, S, "  ")
       S = Replace(S, "  ", " ")
    Loop
    S = Split(S)
    For i = 0 To UBound(S)
        If Not Dictionary.Exists(S(i)) Then Dictionary.Add S(i), i
    Next
    S = Join(Dictionary.keys, ", ")
    MsgBox S
End Sub
                        