End Sub. Як бачимо в заголовку вікна ім’я додатку- Microsoft Excel, поле для введення пусте в нього треба ввести число

Як бачимо в заголовку вікна ім’я додатку- Microsoft Excel, поле для введення пусте в нього треба ввести число, наприклад 5, а потім натиснути OK. Змінній х буде присвоєно значення 5.

Напишемо простеньку програму, що через вікно діалогу вводить два цілих числа х та у, знаходить їх суму результат виводить у вікно повідомлення.

Public Sub Сума_двох_чисел()

Dim x As Integer, y As Integer

x = InputBox("Введіть число x")

y = InputBox("Введіть число y")

Sum = x + y

MsgBox "Сума x+y=" & Sum, vbInformation, "Результат"

End Sub