Количество положительных чисел

Задача: дана последовательность А1,А2,А3,…А10. Вывести сообщение на экран, если больше или меньше 5 положительных чисел.

Решение:

 
Sub random1()
   num1 = InputBox("Введите число 1:")
   num2 = InputBox("Введите число 2:")
   num3 = InputBox("Введите число 3:")
   num4 = InputBox("Введите число 4:")
   num5 = InputBox("Введите число 5:")
   num6 = InputBox("Введите число 6:")
   num7 = InputBox("Введите число 7:")
   num8 = InputBox("Введите число 8:")
   num9 = InputBox("Введите число 9:")
   num10 = InputBox("Введите число 10:")
   col = 0
   If num1 > 0 Then
     col = col + 1
   End If
   If num2 > 0 Then
     col = col + 1
   End If
   If num3 > 0 Then
     col = col + 1
   End If
   If num4 > 0 Then
     col = col + 1
   End If
   If num5 > 0 Then
     col = col + 1
   End If
   If num6 > 0 Then
     col = col + 1
   End If
   If num7 > 0 Then
     col = col + 1
   End If
   If num8 > 0 Then
     col = col + 1
   End If
   If num9 > 0 Then
     col = col + 1
   End If
   If num10 > 0 Then
     col = col + 1
   End If
   If col <= 5 Then
     MsgBox ("Количество положительных чисел не превышает 5")
   Else
     MsgBox ("Количество положительных чисел больше 5")
   End If
End Sub