ListBox Selected Values

Listbox selected values string separated with “,”

Dim li As ListItem
Dim x As Integer = 0
Dim Strv As String

For Each li In LB_users.Items
If li.Selected = True Then
strv = li.Value + "," + txt_users.Text
strv = strv.Remove(strv.Length - 1)

End If

Next