listbox auf selektierte werte prüfen

Private Sub cmdWEITER_Click()
Dim Start As Long
Dim j As Integer
Call LetzteZeileErmitteln
Start = letzteZeile + 1
'Zielbiotop eintragen
With ActiveSheet
For j = 0 To lbxVerf.ListCount - 1
'nur Auslesen, wenn es sich um selektierte Verfahren handelt
If lbxVerf.Selected(j) = True Then
Cells(Start, Sp1) = lbxVerf.List(j)
Start = Start + 1
'            ElseIf lbxVerf.Selected(j) = False Then
'                MsgBox "Bitte mindestens ein Verfahren wählen!", 0, "Hinweis"
End If
Next j
End With
dlgWeitereVerfahrenAusDB.Hide
dlgWeitereVerfahrenMenge.Show
End Sub