Imports System

Imports System.Linq

Public Module Module1

    Public Sub Main()

        Dim dict as new System.Collections.Generic.Dictionary(Of String,Single)()

        dict.Add("foo",42)

        For Each wd In dict.Values

            wd = Single.MinValue

        Next

        Console.WriteLine(dict.Values.Sum())

    End Sub

End Module