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

Private Sub Form_Load()
    Dim I As Integer
    Dim SA As Single
    Dim q As Long
    Dim a() As Long
    
    ReDim a(10)
    
    For I = 0 To 10
        a(I) = Rnd * 10
    Next
   
    For I = 1 To 10 Step 2
        If a(I) > 0 Then
            q = q + 1
            SA = SA + a(I)
        End If
    Next I
    
    SA = SA / q
    
End Sub