Imports System

Imports System.Collections.Generic

​

Public Module Module1

    Public Sub Main()

        Dim data As New Dictionary(Of Integer, String) From { {1, "One"}, {2, "Two"}, {3, "Three"} }    

        Console.WriteLine(CSVKeysFromDictionary(data))

    End Sub

    Public Function CSVKeysFromDictionary(Of T)(input As Dictionary(Of Integer, T)) As String

        Return String.Join(",", input.Keys)

    End Function

End Module