Определить количество положительных элементов массива и их сумму - VB

Option Explicit
 
Dim a(1 To 10) As String
 
 Private Sub Command1_Click()
    Dim i&
    For i = 1 To 10
        a(i) = Val(InputBox(Str(i) & "елемента", "Введення"))
        Print a(i)
    Next i
 End Sub
 
 Private Sub Command2_Click()
    On Error Resume Next
    Dim k&, n&, i&
    k = 0
    For i = 1 To 10
        k = k + a(i)
        If a(i) > 0 Then n = n + 1
    Next i
    Print "Кількість додатніх елементів +", n, k
 End Sub
 
 Private Sub Command3_Click()
    Cls
 End Sub