Удаление выделенной строки

[Эльвира Гимадеева]

Подскажите пожалуйста, как сделать так, чтобы в кнопке очистить при выделении одной строки удалялась только она, при выделении нескольких- они, а если ничего не выделять,  то полностью очистится ListBox. Замучилась вся, первый пункт вышел,а а вторые два никак. 

Код Выделить Развернуть

Private Sub ToggleButton1_Click()
For j = ListBox1.ListCount - 1 To 0 Step -1
    If ListBox1.Selected(j) Then
        ListBox1.RemoveItem j
    End If
Next j

End Sub

[kuklp]

Код Выделить Развернуть

Private Sub ToggleButton1_Click()
    Dim i&
    For j = ListBox1.ListCount - 1 To 0 Step -1
        If ListBox1.Selected(j) Then
            i = i + 1
            ListBox1.RemoveItem j
        End If
    Next j
    If i = 0 Then ListBox1.Clear
End Sub