VBA Code Help Im new to this.

[Alpacino]

hello everyone I have been practising using VBA and input Boxes.

I have this Code but I want to put in if answer is Greater than 10 then MsgBox wow thats alot. and if its less than 10 then MsgBox "Go to the travel Agents Pronto" how do I do this???

Thanks in advance
Alan

Sub Question3()
Num = InputBox("How many countries have you visited?")
MsgBox Num & ". Really that many, I never knew that!!"
End Sub

 

[Warship]

Something like:

Sub Question3()
  num = InputBox("How many countries have you visited?")
  Select Case num
    Case Is < 10
      MsgBox "Go to the travel Agents Pronto"
    Case Is > 10
      MsgBox num & ". Really that many, I never knew that!!"
  End Select
End Sub

 

[BrianMH]

Sub Question3()
num = InputBox("How many countries have you visited?")
If num >= 10 Then
    MsgBox ("wow thats alot")
Else
    MsgBox ("go to the travel agents pronto")
End If

End Sub

 

[Alpacino]

thank you for that!
How do I add another MsgBox e.g is countries visited is Greater than 20 then MsgBox "You must be Michael Palin"

 

[teachmehow2macro]

thank you for that!
How do I add another MsgBox e.g is countries visited is Greater than 20 then MsgBox "You must be Michael Palin"

an additon to the code above.

Sub Question3()
num = InputBox("How many countries have you visited?")
If num >= 20 Then
MsgBox ("You must be Michael Palin")
ElseIf num >= 10 Then
MsgBox ("wow thats alot")
Else
MsgBox ("go to the travel agents pronto")
    
End If

End Sub