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

Sub vvv()
'1. Дан ряд чисел (-8, -5, -6, -3, 5, 2, 10, 125, 15, 6).
'а) ввести эти числа в одномерный массив Р
p = Array(-8, -5, -6, -3, 5, 2, 10, 125, 15, 6)
'напечатать в строчку;
MsgBox Join(p)
'б) подсчитать количество положительных элементов;
sp = ""
np=0
For i = 0 To UBound(p)
  fp = p(i) > 0
  np = np - fp
  If fp Then sp = sp & p(i) & " "
Next
'в) вывести на экран положительные элементы
MsgBox sp
End Sub