КАК сделать задачу в VISUAL BASIC - VB

Private Sub Command1_Click()
   Dim N As Long, S As Long
   Dim i As Long, S2 As Long
 
N = InputBox("", "Введите N")
 
For i = 2 To 2 * N Step 2
   S = S + i
Next
 
S2 = (N + 1) * N
Print "S ="; S
Print "S2 ="; S2
End Sub