Program in visual basic to calculate the sum of the elements of array.

Option Base 1
Dim a() As Integer
Dim i As Integer
Dim sum, s As Integer
Private Sub Command1_Click()
s = Val(Text1.Text)
ReDim a(s) As Integer
sum = 0
For i = 1 To s
a(i) = InputBox("enter the value")
sum = sum + a(i)
Next i
Text2.Text = sum
End Sub