Select Case Gewicht - Idealgewicht
            Case Is < -0.5
                Label4.Text = "Untergewicht"
            Case Is > 0.5
                Label4.Text = "Übergewicht"
            Case Else
                Label4.Text = "Normalgewicht"
        End Select