'Text für Gewicht zusammensetzen
        strTextGewicht = "Hallo " & strTextName & "Ihr Idealgewicht: " & CStr( _
          dblIdealgewicht) & " kg" & " - Ihr " & _
              "Gewicht: " & CStr(dblGewicht.ToString) & " kg"

Private Sub ShowErgebnis(ByVal strTextGewicht As String, ByVal _
  strTextErgebnisGewicht As String)
 
        Ergebnis.Show()
        Ergebnis.Label_Gewicht.Text = strTextName
        Ergebnis.Label_Gewicht.Text = strTextGewicht
        Ergebnis.Label_Ergebnis_Gewicht.Text    = strTextErgebnisGewicht
 
 
    End Sub

Private Sub Button_Calculate_Click( ByVal sender As System.Object,  ByVal e As _
  System.EventArgs) Handles Button_Calculate.Click
        Dim dblLength                   As Double = Nothing
        Dim dblGewicht                  As Double = Nothing
        Dim dblFaktor                   As Double = Nothing
        Dim dblIdealgewicht             As Double = Nothing
        Dim dblDifference               As Double = Nothing
        Dim strTextErgebnisGewicht      As String = Nothing
        Dim strTextGewicht As String = Nothing
        Dim strTextName As String = Nothing
        Const FAKTOR_MANN               As Double = 0.9
        Const FAKTOR_FRAU               As Double = 0.85