Why is the result of my Program is always underweight in BMI here is my code :  Dim Weight, Height, Bmi_value As Integer
        Weight = TextBox1.Text
        Height = TextBox2.Text

        Bmi_value = (Weight / Height ^ 2)
        TextBox3.Text = Bmi_value

        Select Case Bmi_value
            Case 0.0 To 18.5
                TextBox4.Text = "Underweight"
            Case 18.6 To 24.9
                TextBox4.Text = "Normal"
            Case 25.0 To 29.9
                TextBox4.Text = "Overweight"
            Case Is >= 30.0
                TextBox4.Text = "Obese"

        End Select
    End Sub