Написать словесный метод к программке Excel VBAPrivate Sub ABC()039;Объявление

Написать словесный метод к программке Excel VBA
Private Sub ABC()
'Объявление переменных
Dim A As Single, B As Single, C As Single
Dim S As Single
Dim Otvet1 As String, Otvet2 As String, Otvet3 As String
'Ввод начальных данных
A = Val(Cells(2, 2).Value)
B = Val(Cells(3, 2).Value)
C = Val(Cells(4, 2).Value)
S = 0
'Проверка условия для числа А
If A Mod 2 = 0 Then
Otvet1 = "число - четное"
S = S + A
Else
Otvet1 = "число A - нечетное"
End If
'Проверка условия для числа В
If B Mod 2 = 0 Then
Otvet2 = "Число В - четное"
S = S + B
Else
Otvet2 = "Число В - нечетное"
End If
'Проверка условия для числа С
If C Mod 2 = 0 Then
Otvet3 = "Число С - четное"
S = S + C
Else
Otvet3 = "Число С - нечетное"
End If
'Вывод результатов
Cells(2, 3).Value = Otvet1
Cells(3, 3).Value = Otvet2
Cells(4, 3).Value = Otvet3
Cells(6, 2).Value = Str(S)

End Sub