Private Sub Form Click()
Dim arr
Dim Start As Integer, Finish As Integer
Dim Sum As Integer
arr = Array(1, 2, 3, 4)
Start = LBound(arr)
Finish = UBound(arr)
Sum = 0
For i = Start To Finish
Sum = Sum + arr()
Next i
c = Sum / Finish
Text1.Text = c

Print c
End Sub