Возможна ли Блок-схема по данному макросу(Excel) - VBA

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

Возможна ли Блок-схема по данному макросу(Excel):

Private Sub CommandButton1_Click()
Dim a As Single, b As Single, c As Single
Dim k As Integer
a = Val(TextBox1)
b = Val(TextBox2)
c = Val(TextBox3)
k = 0
If a Mod 7 = 1 Then k = k + 1
If b Mod 7 = 1 Then k = k + 1
If c Mod 7 = 1 Then k = k + 1
Label4.Caption = "Количество тех чисел,которые при делении на 7 дают остаток 1. РАВНО:" & k
End Sub

Решение задачи: «Возможна ли Блок-схема по данному макросу(Excel)»

textual
                            Листинг программы 
                        
                            Label4.Caption = "Количество тех чисел,которые при делении на 7 дают остаток 1. РАВНО:" & k