Faça uma aplicação que dado um número X [0 < X < 100]. 'Apresente em tela uma contagem regressiva de dois em dois até chegar ao número 0.

Sub lista_9()
'9) Faça uma aplicação que dado um número X [0 < X < 100].
'Apresente em tela uma contagem regressiva de dois em dois até chegar ao número 0.

Dim num As Integer
Dim i As Integer
    For i = 100 To 1 Step -1
        If (i Mod 2 = 0) Then
        Debug.Print i
        ' "Crtl G" para ver o resultado na Tela de Verificação Imediat.
        End If
    Next
End Sub