select case [VBA]

option explicit


public sub select_case()

  dim var as integer

  var = 42

  select case var
    case 41
      msgBox "var found to be 41"
    case 42
      msgBox "var found to be 42"
    case 4
      msgBox "var found to be 43"
  end select

  select case var
    case 30 to 39
      msgBox "var found to be between 30 and 39"
    case 40 to 49
      msgBox "var found to be between 40 and 49"
    case 50 to 59
      msgBox "var found to be between 50 and 59"
  end select

  select case var
    case 30 to 39, 50 to 59
      msgBox "var found to be between 30 and 39 or between 50 and 59"
    case 40 to 49, 60 to 69
      msgBox "var found to be between 40 and 49 or between 60 and 69"
    case 20 to 29, 70 to 79
      msgBox "var found to be between 20 and 29 or between 70 and 79"
  end select

  select case var
    case is > 60
      msgBox "var found to be > 60"
    case is > 40
      msgBox "var found to be > 40"
    case is > 20
      msgBox "var found to be > 20"
    case else
      msgBox "var neither > 60, nor > 40, nor > 20 (hence <= 20)"
  end select
    
end sub