Private Sub Berechnen()
 
        Dim Gewicht As Single = CDec(Trim$(TextBox1.Text))
        Dim Groesse As Single = CDec(Trim$(TextBox2.Text))
        Label1.Text = (Gewicht / (Groesse / 100) ^ 2).ToString("0")
 
    End Sub
 
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As  _
      System.EventArgs) Handles TextBox1.TextChanged, TextBox2.TextChanged
        Berechnen()
    End Sub