Как найти значения и индексы, а также количество элементов вектора W размерности n, которые не входят в интервал [3;9] - VB

Sub Task(W() As Integer, Optional i As Integer = 1, Optional k As Integer = 0)
    If i > UBound(W, 1) Then
       Debug.Print "k="; k
       Exit Sub
    Else
       If W(i) > 9 Or W(i) < 3 Then
          Debug.Print i; " "; W(i)
          k = k + 1
       End If
       Task W(), i + 1, k
    End If
End Sub
 
Sub Start()
 
Dim W(1 To 5) As Integer
 
    W(1) = 1
    W(2) = 10
    W(3) = 5
    W(4) = -5
    W(5) = 7
 
    Task W()
 
End Sub