Подсчет количества шрифтов в системе (ошибка в коде) - VB

Формулировка задачи:

Подсчет количества шрифтов(ошибка в коде). Если выделен один шрифт то пишет Шрифт : номер шрифта в списке Если выбрано больше одного то пишет: Шрифтов: количество выделеных/количество шрифтов в списке

Private Sub List1_Click()
    Dim i%, c%
For i = 0 To List1.ListCount - 1
  c = c - List1.Selected(i)
Next i
If c = 1 Then
Label3.Caption = "Шрифт: " & List1.ListIndex + 1
 
 ElseIf c > 1 Then
 Label3.Caption = "Шрифтов :" c & " / " & List1.ListCount
End If
End Sub

Пишет ошибку компиляции в этой строке:

 Label3.Caption = "Шрифтов :" c & " / " & List1.ListCount

Решение задачи: «Подсчет количества шрифтов в системе (ошибка в коде)»

textual
                            Листинг программы 
                        
                            Label3.Caption = "Шрифтов :" & c & " / " & List1.ListCount