VBA!!

[NitriNKa]

Помогите написать, пожалуйста!! Задача: Написать программу, которая по заданным трем числам определяет, является ли сумма каких-либо двух из них положительной.

[Henge]

Dim a, b, c As Single
a = Val(InputBox("Введите 1 число"))
b = Val(InputBox("Введите 2 число"))
c = Val(InputBox("Введите 3 число"))
If (a + b) > 0 Then MsgBox ("Сумма 1 и 2 чисел положительна")
If (a + c) > 0 Then MsgBox ("Сумма 1 и 3 чисел положительна")
If (b + c) > 0 Then MsgBox ("Сумма 2 и 3 чисел положительна")