Imports System

Imports System.Collections.Generic

Imports System.Runtime.CompilerServices

Public Module EnumerableExtensions

​

    <Extension()> 

    Public Function FirstValue(Of TKey, TValue)(source As SortedDictionary(Of TKey, TValue)) As TValue

        For Each kvp In source

            Return kvp.Value

        Next

        Return Nothing

    End Function

​

End Module

Public Module Module1

    Public Sub Main()

        Dim a As SortedDictionary(Of string, string) = new SortedDictionary(Of string, string)

        a.Add("foo", "1 - foo")

        a.Add("bar", "2 - bar")

        Console.WriteLine(a.FirstValue())

    End Sub

End Module