Module IfDemo

    Sub Main()
      Dim month as Integer = 2
      Dim numberOfDays as Integer

      Select Case month
        Case 1, 3, 5, 7, 8, 10, 12 
          numberOfDays = 31
        Case 4, 6, 9, 11
          numberOfDays = 30
        Case 2
          numberOfDays = 28             ' or 29
        Case Else 
          Throw New Exception("Problems")
      End Select

      Console.WriteLine(numberOfDays)  ' prints 28
    End Sub
End Module