07. Remove Negatives and Reverse

Sub RemoveNegativesAndReverse()
    Dim arrNum As Variant
    arrNum = Split("10 -5 7 9 -33 50", " ")

    Dim numList As New ArrayList

    For Each el In arrNum
        If el >= 0 Then
            numList.Add (el)
        End If
    Next

    For i = numList.count - 1 To 0 Step -1
        Debug.Print numList(i)
    Next
End Sub