Задача в Excel в VBA код

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

Найти сумму n первых членов арифметической прогрессии, заданной двумя первыми членами

Решение задачи: «Задача в Excel в VBA код»

textual
                            Листинг программы 
                        

                            Sub vvv()
Do
  n = InputBox("Введите количество чисел (число должно быть больше 3)", "ВВОД ДАННЫХ")
Loop Until n > 2
m1 = InputBox("Введите первое чисело", "ВВОД ДАННЫХ")
m2 = InputBox("Введите второе чисело", "ВВОД ДАННЫХ")
If m1 > m2 Then m3 = m1: m1 = m2: m2 = m3
h = m2 - m1: txt = m1 & "+" & m2
For i = 3 To n
   txt = txt & "+" & m1 + h * (i - 1)
Next
MsgBox txt & "=" & (2 * m1 + h * (n - 1)) / 2 * n
End Sub
                        