Задачка на вычисление суммы - VB

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

Нужно записать вот такое вычисление 1×2+2×3+...+(n-1)×n и записать его в ответе, но как я не знаю. Помогите, пожалуйста!

Option Explicit
Private Sub Command1_Click()
Dim n As Integer, m As Integer
n = InputBox("Введите натуральное число, которое будет больше или равно 2")
m = 1 * 2 +
Print m
End Sub

Решение задачи: «Задачка на вычисление суммы»

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

                            Option Explicit
Private Sub Command1_Click()
    Dim n As Integer, sum As Integer, i As Integer
    n = Val(InputBox("Введите натуральное число, которое будет больше или равно 2", , 5))
    For i = 2 To n
      sum = sum + ((i - 1) * i)
    Next i
    Print sum
End Sub
                        