Вычислить значение выражения

Sub Procedure_1()
 
    'Создаём различные переменные, которые
    'понадобятся для написания кода.
    
    'Double означает, что в переменной может быть только
    'действительное число (текст, например, не может быть).
    'Действительные чисала - это целые и дробные числа.
    'Есть ещё натуральные числа - это целые числа.
    Dim a As Double
    Dim P As Double
    'Long означает, что в переменной могут быть только целые числа.
    Dim n As Long
    Dim i As Long
    
    'Помещаем в переменную "a" число.
    'Дробные числа вводятся с точкой.
    a = 1.1
    
    'Помещаем в переменную "n" число.
    n = 10
    
    'For ... To ... Step ... Next - называется циклом и
    'используется для выполнения одного и того же действия
    'заданное количество раз.
    'В данном случае, у цикла будет столько витков,
    'какое число находится в переменной "n".
    For i = 1 To n Step 1
        'Здесь нужно записать математическое действие.
        'Обратите внимание, что в переменную "P" помещаются
        'данные из самой же переменной "P".
        P=P+a(a+1)...(a+n+1)
    Next i
    
    'Выводим на монитор сообщение.
    'Символ "&" используется для соединения фрагментов текста в одну строку.
    MsgBox "P = " & P
 
End Sub