Imports System
Imports System.Linq
Imports System.Collections.Generic
Module Program
Sub Main()
Dim list As New List(Of Integer) From {3, 7, -8, 91, 99, 10, -5, 1, 2}
Dim result = list.Sum(Function(e) If(e > 0, e, 0))
Console.WriteLine(result)
End Sub
End Module
' run
'
' 213
'