Вычислить значение ф-ции при изменении х от 3 до 15 с шагом 0,5 - VB

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

Проблема в том, что данная программа считает только одно значение функции, а мне надо чтоб она показала каждое значение функции для каждого "икса"! Задание к лабораторной работе Вычислить значение ф-ции при изменении х от 3 до 15 с шагом 0,5: Текст программы Form1

Private Sub Command1_Click()
n = Val(InputBox("Введите значение n", "", 26))
Step = 0.5
S = 0
For x = 3 To 15 Step 0.5
    S = S + ((n + 1) * x + (n + 2) * x + (n + 3) * x) + x
Next
Unload Form1
Load Form2
Form2.Show 1
End Sub
Private Sub Command2_Click()
End
End Sub

Form2

Private Sub Form_Load()
Label1.Caption = "S = " + Str(S)
End Sub

Module1

Public S As Double

Решение задачи: «Вычислить значение ф-ции при изменении х от 3 до 15 с шагом 0,5»

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

                            Private Sub Form_Load()
Label1.Caption = S 
End Sub
                        