Public Class Form1
 
    Private Sub Berechnen()
 
        ' BMI berechnen 
 
        Dim Gewicht As Single
        Dim Groesse
        Dim BMI As Single
 
        If Trim$(TextBox1.Text) <> "" Then
            Gewicht = CDec(TextBox1.Text)
        Else
            Gewicht = 0
        End If
 
        If Trim$(TextBox2.Text) <> "" Then
            Groesse = CDec(TextBox2.Text)
        Else
            Groesse = 0
        End If
 
        If Gewicht > 0 And Groesse > 0 Then
            BMI = (Gewicht / (Groesse / 100) ^ 2)
            Label1.Text() = "Ihr Wert: " & BMI
        Else
            Label1.Text() = "Ihr Wert: " & 0
        End If
 
    End Sub
 
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles TextBox1.TextChanged
        Berechnen()
    End Sub
 
    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles TextBox2.TextChanged
        Berechnen()
    End Sub
 
    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Label1.Click
 
    End Sub
End Class