Faça um programa que mostre todos os números 'divisíveis exatos por três que estão no intervalo de 3 a111.

Sub lista_7()
'7) Faça um programa que mostre todos os números
'divisíveis exatos por três que estão no intervalo de 3 a111.

Dim selecao As Integer
Dim i As Integer

    For i = 3 To 111
        If (i Mod 3 = 0) Then
            Debug.Print i & " É Divisivel por 3 "
            '"Ctrl G" pra acessar Verificação Imediata
        End If
    Next
End Sub