كيف أقوم بإرجاع قيمة على شكل Value انطلاقا من Key-Value ؟

أتوفر على كائن من نوع ListOf على تطبيق Vb.net، وكما يعلم الجميع هذا النوع يحتوي على بنية من شكل Key-Value، أريد من خلال دالة أعطيها كمُدخل ListOf أن ترجع Keys فقط، وهذا ما حاولت فعله عن طريق هذا الكود:

Private Function GetReasons() As List(Of KeyValuePair(Of Integer, String))
    Dim returnValue As New List(Of KeyValuePair(Of Integer, String))
    Dim con As New SqlConnection(SCRGlobals.ConnectionString)
    Dim cmd As New SqlCommand("SELECT CODE, DESC FROM ltblDELAY", con)
    cmd.CommandType = CommandType.Text
    Try
        con.Open()
        Dim c As SqlDataReader = cmd.ExecuteReader()
        While c.Read
            returnValue.Add(New KeyValuePair(Of Integer, String)(c("CODE"), c("DESC")))
        End While
    Catch ex As Exception
        Common.LogError(ex, True, False)
    Finally
        If con.State <> ConnectionState.Closed Then
            con.Close()
        End If
    End Try
    Return returnValue
End Function

لكنه لا يعيد لي ما أريده بالضبط، فهل من مساعدة؟