Hvad er problemet her?!?!!?!??!?!?! Den skriver hele tiden den fucking forkert funktion ud!
Dim Height, Weight, BMI As Single
Height = TextBox1.Text
Weight = TextBox2.Text
BMI = (Weight) / (Height ^ 2)
Label4.Text = BMI
If BMI <= 18 Then
Label6.Text = "You are underweighted!"
ElseIf BMI > 18 <= 25 Then
Label6.Text = "Your weight is normal!"
ElseIf BMI > 25 <= 30 Then
Label6.Text = "You are overweighted!"
ElseIf BMI > 30 <= 40 Then
Label6.Text = "You are seriously overweighted!"
ElseIf BMI > 40 Then
Label6.Text = "You are really fat!"
End If
End Sub