Faça uma aplicação VBA onde o usuário informa 10 números inteiros 'e ao final mostre a quantidade denúmeros maiores que 100 digitados pelo usuário.

Sub lista_5()
'5) Faça uma aplicação VBA onde o usuário informa 10 números inteiros
'e ao final mostre a quantidade denúmeros maiores que 100 digitados pelo usuário.

Dim num  As Integer
Dim i As Integer

For i = 1 To 10
 num = CInt(InputBox("Digite um numero"))
 If (num >= 100) Then
 Debug.Print num
 End If
 Next

' "Ctrl G" para visualizar a lista de numeros maiores que 100 que foram digitados

End Sub