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
    console.print(c)
End Sub