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
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