Дана числовая последовательность. Найти сумму первых пятидесяти членов - VB

Module Hello
Sub Main()
 
Dim i As Integer
Dim j As Integer
Dim s As String
Dim p As Integer
 
s = ""
j = 1
p = 0
 
For i = 1 To 50
p = p + j
j = j + 2
s = s + CStr(j) + " "
 
Next i  
 
s = s + vbcrlf
s = s + CStr(p)
 
MsgBox(s)
End Sub
End Module