title: I cant calculate the correct numbers via select case
body: <p>Im trying to get the discounted price using select case but i keep getting the regular price </p>
  
  <p>I select student and click on yoga and personal trainer option then i put 11 months according to the calculation its supppose to be 76.50 monthly fee , total 841.50 but i get 85 monthly and total 935 . Help Thank you </p>
  
  <pre><code>Protected Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click
          Dim decMontlyFee As Decimal
          Dim decTotalFee As Decimal
          Dim discount As Double
          Dim intMonths As Integer
  
          Dim decAdultFee As Decimal = 40
          Dim decChildFee As Decimal = 20
          Dim decStudentFee As Decimal = 25
          Dim decSeniorFee As Decimal = 30
          Dim decYogaFee As Decimal = 10
          Dim decKarateFee As Decimal = 30
          Dim decTrainerFee As Decimal = 50
  
  
          If radAdult.Checked = True Then
              decMontlyFee = decAdultFee
          ElseIf radChild.Checked = True Then
              decMontlyFee = decChildFee
          ElseIf radStudent.Checked = True Then
              decMontlyFee = decStudentFee
          ElseIf radSenior.Checked = True Then
              decMontlyFee = decSeniorFee
          End If
  
          If chkYoga.Checked = True Then
              decMontlyFee += decYogaFee
          End If
          If chkTrainer.Checked = True Then
              decMontlyFee += decTrainerFee
          End If
          If chkKarate.Checked = True Then
              decMontlyFee += decKarateFee
          End If
  
          Select Case intMonths
              Case Is &lt;= 3
                  discount = 0
              Case 4 To 6
                  discount = decMontlyFee * 0.05
              Case 7 To 9
                  discount = decMontlyFee * 0.08
              Case Is &gt;= 10
                  discount = decMontlyFee * 0.1
          End Select
  
          decMontlyFee -= discount
          decTotalFee = decMontlyFee * txtMonths.Text
  
          lblMonthlyFee.Text = decMontlyFee.ToString("c")
          lblTotalFee.Text = decTotalFee.ToString("c")
  
      End Sub
  End Class
  </code></pre>