GetListSelections - Retrieve a comma delimited list of items selected in a List control

' Return a comma delimited list of items selected in a List control (e.g. 
' ListBox, CheckBoxList)
'
' Example:
' Dim selections As String = GetListSelections(CheckBoxList1)

Function GetListSelections(ByVal listCtl As _
    System.Web.UI.WebControls.ListControl) As String
    Dim selections As New System.Text.StringBuilder
    Dim sep As String = ""

    ' add to the list each selected item
    For Each item As System.Web.UI.WebControls.ListItem In listCtl.Items
        If item.Selected Then
            selections.Append(sep).Append(item.Value)
            sep = ", "
        End If
    Next

    Return selections.ToString()
End Function