<%@ Page Language="VB" %>
sub Page_Load(Sender as object, e as eventargs)
dim intAge As integer = 7
select Case intAge
case "7"
Response.Write("That's a string!")
case 7
Response.Write("7")
case <10
Response.Write("less than 10")
end select
end sub