A nice extension method that lets you comma seperate anything

CommaSeperate.vb

    <Extension()> _
    Public Function CommaSeperate(Of T)(ByVal lstList As IEnumerable(Of T), ByVal delFunction As Func(Of T, String), ByVal strDelimiter As String) As String
        Dim builder As New StringBuilder
        For Each item As T In lstList
            If delFunction IsNot Nothing Then
                builder.Append(delFunction(item) & strDelimiter)
            Else
                builder.Append(item.ToString() & strDelimiter)
            End If
        Next
        Return builder.ToString().Trim().TrimEnd(strDelimiter)
    End Function

    <Extension()> _
    Public Function CommaSeperate(Of T)(ByVal lstList As IEnumerable(Of T), ByVal delFunction As Func(Of T, String)) As String
        Return CommaSeperate(lstList, delFunction, ",")
    End Function

    <Extension()> _
    Public Function CommaSeperate(Of T)(ByVal lstList As IEnumerable(Of T)) As String
        Return CommaSeperate(lstList, Nothing, ",")
    End Function