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
Você está vendo a versão anterior da nova experiência da Alura que estamos preparando para você. Em breve, ela ganha uma identidade visual novinha totalmente pensada em potencializar seus estudos!
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