Составьте блок схему, скачать прогу не могу и соствить сама тоже не в силах!!

Dim max_i As Integer, f As Integer, S As Integer
Dim n(1 To 1000, 1 To 5), Summa As Integer
Dim ob(1000) As Single, subj(1 To 5) As String, fam(1 To 1000) As String, gr(1 To 1000) As String
Private Sub CmbSub_Click()
txtSpisok.Text = ""
For i = 1 To max_i
  If CmbSub.Text = gr(i) Then
  f = 5: p = 0
  For j = 1 To 5
    If n(i, j) = 3 Then p = p + 1
    If n(i, j) = 4 Then f = 4
  Next j
  If f = 5 And p = 0 Then                'студент-отличник
    If ob(i) = 1 Then S = Summa + Summa * 0.5 Else S = Summa + Summa * 0.25
    txtSpisok.Text = txtSpisok.Text + fam(i) + "  " + Str(S) + " р." + vbCrLf
  ElseIf (f = 4 Or f = 5) And p = 0 Then 'студент-хорошист
    txtSpisok.Text = txtSpisok.Text + fam(i) + "  " + Str(Summa) + " р." + vbCrLf
  ElseIf p = 1 Then                      '1 тройка
    If ob(i) = 1 Then S = Summa Else S = 0
    txtSpisok.Text = txtSpisok.Text + fam(i) + "  " + Str(S) + " р." + vbCrLf
  ElseIf p > 1 Then                      'много троек
    S = 0: txtSpisok.Text = txtSpisok.Text + fam(i) + "  " + Str(S) + " р." + vbCrLf
  End If
  End If
Next i
End Sub
Private Sub Command1_Click()
If IsNumeric(Text1.Text) = True Then
  Summa = Val(Text1.Text): Label3.Visible = False
Else
  MsgBox "Данное поле является числовым", vbCritical + vbOKOnly, "Ошибка при вводе!!!"
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Summa = 1800
Open App.Path + "\data.txt" For Input As #1
Do
  i = i + 1
  Input #1, fam(i), gr(i), subj(1), n(i, 1), subj(2), n(i, 2), subj(3), n(i, 3), subj(4), n(i, 4), subj(5), n(i, 5), ob(i)
Loop Until EOF(1)
Close
max_i = i
For i = 1 To max_i
  For j = 1 To CmbSub.ListCount
    If gr(i) = CmbSub.List(j - 1) Then f = 1
  Next j
  If f = 0 Then CmbSub.AddItem gr(i)
  If f = 1 Then f = 0
Next i
End Sub