Нужен алгоритм блок-схема для этого кода в VBA

[inflamedparadox]

Private Sub CommandButton1_Click()
Dim i, j As Integer
Dim a(1 To 4, 1 To 5) As Double
Dim max, sum As Double
If (OptionButton1.Value = True) Then
For i = 1 To 4 Step 1
For j = 1 To 5 Step 1
a(i, j) = InputBox("Введите элемент A[" + Str(i) + "," + Str(j) + "]", "Ввод матрицы", 0)
Next j
Next i
Else
For i = 1 To 4 Step 1
For j = 1 To 5 Step 1
a(i, j) = Rnd()
a(i, j) = 10 * Round(a(i, j), 2)
Next j
Next i
End If
TextBox1.Text = "Введеная матрица:" & Chr(13)
For i = 1 To 4 Step 1
For j = 1 To 5 Step 1
TextBox1.Text = TextBox1.Text + " " + CStr(a(i, j))
Next j
TextBox1.Text = TextBox1.Text & Chr(13)
Next i
sum = 0
For j = 1 To 5 Step 1
max = a(1, j)
For i = 2 To 4 Step 1
If (max < a(i, j)) Then
max = a(i, j)
End If
Next i
sum = sum + max
Next j
TextBox1.Text = TextBox1.Text + "Сумма наибольших значений столбцов матрицы=" + CStr(sum)
End Sub