No entiendo muy bien lo que necesitas
pero por lo que veo lo que pretendes es barrer tu listbox y guardar en una variable los campos seleccionados o no..??
Si es así... yo lo haría mas bien con un for each...
ejemplo.
Cita: Dim li As ListItem
For Each li In lbNivel.Items
If li.Selected Then
strDesp &= li.Value & ";"
End If
Next
Saludos
