Module Module1
 
    Public Structure Posten
        Public Sub New(ByVal warengruppe As String, ByVal preis As Decimal)
            Me.Warengruppe = warengruppe
            Me.Preis = preis
        End Sub
 
        Public Warengruppe As String
        Public Preis As Decimal
    End Structure
 
    Public Function SumOfCategory(ByVal liste As ArrayList, ByVal gruppe As _
      String) As Decimal
        Dim summe As Decimal = 0
        For Each i As Posten In liste
            If i.Warengruppe = gruppe Then
                summe += i.Preis
            End If
        Next
 
        Return summe
    End Function
 
    Sub Main()
        Dim l As New ArrayList()
        l.Add(New Posten("CPU", 75D))
        l.Add(New Posten("CPU", 125D))
        l.Add(New Posten("CPU", 240D))
        l.Add(New Posten("CPU", 450D))
        l.Add(New Posten("GPU", 169.9D))
        l.Add(New Posten("GPU", 280D))
 
        Dim sum As Decimal = SumOfCategory(l, "CPU")
 
        Console.WriteLine("Summe von Warengruppe CPU: {0}", sum)
        Console.Read()
    End Sub
End Module

Ralf