syntaxhelp.com Your online cheat sheet!

Cheat sheet to calculating sum

 Function CalcSum(ByVal ParamArray val() As Integer) As Double
        Dim sum As Double = 0
        For i As Integer = LBound(val) To UBound(val)
            sum += val(i)
        Next
        Return sum
    End Function

Calling the method

    Private Sub btnSum_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'output :15
        MessageBox.Show(CalcSum(1, 2, 3, 4, 5))
        'output :19
        MessageBox.Show(CalcSum(4, 5, 10))
    End Sub