Нужно сжать массив, удалив отрицательные элементы - VB

Private Sub Command1_Click()
Cls
n = 10
ReDim A(1 To n)
For i = 1 To n
A(i) = Int(Rnd * 11) - 5
Next i
 
pr A()
 
sm A(), 1, k
 
If k = 0 Then
 Print "{0}"
Else
 ReDim Preserve A(1 To k)
 pr A()
End If
 
End Sub
Sub pr(A())
For i = LBound(A) To UBound(A)
    Print A(i); " ";
Next i
Print
End Sub
 
Sub sm(A(), m, k)
If m > UBound(A) Then Exit Sub
If A(m) >= 0 Then
    k = k + 1: A(k) = A(m)
End If
sm A(), m + 1, k
End Sub