SUB selectcase
  dim i as integer
  for i=1 to 10
    select case i
    case 3
      msgbox "i=3"
    case 7
      msgbox "i=7"
    else
      msgbox "other"
    end select
  next
  select case i
  end select
END SUB