VB .NET - Calcular IMC

Public Class Form1

    Private Sub btnVerificar_Click(sender As System.Object, e As System.EventArgs) Handles btnVerificar.Click

        If Me.txtAltura.Text = String.Empty Or Me.txtPeso.Text = String.Empty Then

            MsgBox("Informe corretamente os campos.", MsgBoxStyle.Exclamation, "Calcular o IMC - Atenção")

            Exit Sub

        End If

        Dim peso As Double = Me.txtPeso.Text

        Dim altura As Double = Me.txtAltura.Text

        Dim altura2 As Double = altura * altura

        Dim imc As Double = (peso / altura2)

        Select Case imc

            Case Is < 20

                Me.lblImc.Text = "Seu IMC é " & Format(imc, "#,##0.00") & " você esta ABAIXO do peso."

            Case 20 To 24.9

                Me.lblImc.Text = "Seu IMC é " & Format(imc, "#,##0.00") & " seu peso esta NORMAL."

            Case 25 To 29.9

                Me.lblImc.Text = "Seu IMC é " & Format(imc, "#,##000") & " você com SOBREPESO."

            Case 30 To 39.9

                Me.lblImc.Text = "Seu IMC é " & Format(imc, "#,##0.00") & " você esta OBESO."

            Case Is > 40

                Me.lblImc.Text = "Seu IMC é " & Format(imc, "#,##0.00") & " você esta com obesidade MÓRBIDA."

        End Select

    End Sub

End Class

Espero ter ajudado, abraços! Até a próxima...