0
respostas

Exibir somente número menor que 500

Minha solução é:

Dim X As Integer
X = 300

If X <= 500 Then
    MsgBox("Número Menor que 500")
End If
If X <> 500 And X < 1000 Then
    MsgBox("Número Menor que 1000")
End If