Цикл в UserForm (VBA)

[Limon153]

Помогите плиз с заданием. Надо сделать в UserForm так, чтобы с флажком на первом checkbox считал стоимость выбранных позиций, а при втором кол-во выделенных строк (все это при нажатии кнопки "вычислить"). Вроде бы нужно использовать циклы, но ничего не получается... Напишите плиз правильный код на кнопку вычислить (CommandButton1). Приложено само задание и форма с таблицей
Вот код на кнопку "вычислить":

Private Sub CommandButton1_Click()
    If CheckBox1 Then
        i = 0
        If ListBox1.Selected(i) = True Then 'это неправильный цикл...
            For i = 0 To ListBox1.ListCount - 1
                i = i + 1
            Next
        End If
        Label1 = i 'Здесь должно быть количество выделенных строк
    Else
        Label1 = ""
    End If
    If CheckBox2 Then
        Label2 = i 'Здесь сумма цен выделенных товаров
    Else
        Label2 = ""
    End If
End Sub