Nem lehívása összes kiválasztott értékek négyzetet

Az alábbiakban kód van írva, oly módon, hogy helyrehozza az összes kiválasztott négyzetet értékek

De az retieve csak az első kiválasztott érték

Kérem, segítsen

Dim CheckedValues As String
                For Each item as ListItem In txt_panview0_ddinput1.Items
                 If item.Selected Then
                     CheckedValues = CheckedValues & item.Value
                End If
                Next
                If Not String.IsNullOrEmpty(checkedValues) Then
                    checkedValues = checkedValues.Substring(1)
                End If

 tempCollector = tempCollector + <br> + Area Name + :  + checkedValues