Построение блок-схемы по готовому коду - VB

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

                    Листинг программы
                
 
                        
                          
                    
Dim a As String, i As Integer, j As Integer
 
Private Sub Form_Load()
a = InputBox("введите число")
For i = 1 To Len(a)
    For j = i + 1 To Len(a)
        If Mid$(a, i, 1) = Mid$(a, j, 1) Then
        MsgBox "в числе  " & a & "  есть повторяющиеся цифры"
        Exit Sub
        End If
    Next j
Next i
MsgBox "в числе  " & a & "  нет повторяющихся цифр"
End Sub

Решение задачи: «Построение блок-схемы по готовому коду»

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