Imports System
Public Class Test
Shared Function AddValues(ByVal arr() As Integer) As Integer
Dim sum As Integer = 0
For Each n As Integer In arr
sum = sum + n
Next
return sum
End Function
Public Shared Sub Main()
Dim arr() As Integer = {5, 7, 3, 0, 1}
Console.WriteLine(AddValues(arr))
End Sub
End Class
' run
'
' 16
'