Listbox Mehrfachauswahl zählen

Hallo Zusammen,
ich möchte die markierten Einträge eine UF-Listbox zählen.
Die Einträge der Listbox, wenn in der ersten Spalte(0) Werte stehen.
Angezeigt lblAnz.Caption "wahr"

Private Sub cmdAuswahl_Click
With UF1.ListBox1
For ii = 0 To .ListCount - 1
If .List(ii, 0) <> "" Then
.Selected(ii) = True
lblAnz.Caption = .Selected(ii)
End If
Next ii
End With
End Sub