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

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

Dim WithEvents cm1 As CommandButton, WithEvents cm2 As CommandButton
Dim b As Boolean
 
Private Sub cm1_Click()
    Form_Activate
End Sub
 
Private Sub cm2_Click()
    MsgBox "Среднее арифметическое матрицы = " & Mid(Split(cm2.Caption, "=")(1), 2)
End Sub
 
Private Sub Form_Activate()
    Const matrix = 500, l = 5
    Dim arr(l, l), X&, Y&, n&, b1 As Boolean, i&, o As Object
    Static c(l * l + l + 2) As CommandButton, s$
    If b Then GoTo povtor
 
    For Each o In Me: Controls.Remove o: Next
povtor:
    Randomize Timer
 
    If b = False Then
 
        For Y = 1 To l: For X = 1 To l
                i = (Y - 1) * l + X
                Set c(i) = Controls.Add("vb.CommandButton", "c" & X & Y)
                c(i).Move (X - 1) * matrix, (Y - 1) * matrix, matrix, matrix
                c(i).Visible = True
        Next: Next
    End If
 
    If b = False Then
        i = (Y - 1) * l + X
        Set c(i) = Controls.Add("vb.CommandButton", "c" & X & Y & 1)
        Set cm1 = c(i): c(i).Move 0, (Y - 1) * matrix, matrix * 2, matrix
        c(i).Caption = "Повтор": c(i).Visible = True
        Set c(i) = Controls.Add("vb.CommandButton", "c" & X & Y & 2)
        Set cm2 = c(i): c(i).Move matrix * 2, (Y - 1) * matrix, matrix * 3, matrix
        c(i).Caption = "": c(i).Visible = True
        Me.Refresh
    End If
    b = True
    '''
    n = 0
 
    For Y = 1 To l: For X = 1 To l
            arr(X, Y) = Fix(Rnd * 100)
            i = (Y - 1) * l + X
            c(i).Caption = arr(X, Y)
            n = n + arr(X, Y)
    Next: Next
    cm2.Caption = "Ср.Арфм = " & n / (l * l)
End Sub

Private Sub Command1_Click()
    Dim A() As Single
    Dim n As Integer, i As Integer, j As Integer
    Dim S As Single, P As Double, St As String
    n = InputBox("Введите размер квадратной матрицы  n =", "Ввод данных ", 5)
    ReDim A(1 To n, 1 To n)
    P = 1
    Randomize ' Инициализация генератора случайных чисел
    St = "Матрица" & vbCrLf
    For i = 1 To n
         For j = 1 To n
              A(i, j) = Int(Rnd * 9 + 1)  'заполняем матрицу случайными числами
              'Следующая строка нужна, если требуется заполнение матрицы вручную
              'A(i, j) = InputBox("Введите A(" & i & "," & j & ")", "Ввод данных ", Int(Rnd * 9  + 1))
              St = St & A(i, j) & vbTab
         Next j
         St = St & vbCrLf
    Next i
    
    If n Mod 2 = 0 Then
            For i = 1 To n
                 S = S + A(i, i)         'Считаем сумму элементов на главной диагонали
            Next i
            St = St & "n - чётное" & vbCrLf & "Сумма элементов на главной диагонали   " & S
     Else
            For i = 1 To n
                 P = P * A(i, n - i + 1) 'Вычисляем произведение элементов побочной диагонали
            Next i
            St = St & "n - нечётное" & vbCrLf & "Произведение элементов побочной диагонали   " & P
     End If
    
    MsgBox St
    Print St
End Sub

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