Number=Rnd(1,3)
Select case Number
Case 1 Msgbox "Hit 1"
Case 2 Msgbox "Hit 2"
Case 3 Msgbox "Hit 3"
case else Msgbox "No way!"
end select
if number = 1 then
msgbox "hit 1"
else if number=2 then
msgbox "hit 2"
else if number=3 then
msgbox "hit 3"
else
msgbox "no way!"
end if