Вывести на экран положительные элементы одномерного массива - VB

Option Explicit
 
Sub i()
    Dim x#, f&, a$(), u&, n&, s$
    Randomize Timer
    For f = 1 To 10
        x = -100 + Rnd * 200
        s = s & " " & x
    Next
    a = Split(Mid(s, 2))
    u = UBound(a)
    For f = 0 To u
        If a(f) > 0 Then Print a(f): n = n + 1
    Next
    Print "***********************"
    Print "Число элементов = " & u+1
    Print "Число положительных элементов = " & n
End Sub
 
Private Sub command1_click()
i
Command1.Caption = "Готово !"
End Sub