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 strTextAnrede               As String = Nothing
        Const FAKTOR_MANN               As Double = 0.9
        Const FAKTOR_FRAU               As Double = 0.85
 
 
        If Me.RadioButton_Mann.Checked = True Then
            'Wenn der RadioButton für männlich ausgewäht ist,
            'dann den Wert für männlich zuweisen
            dblFaktor = FAKTOR_MANN
            strTextAnrede = "Hallo Herr " & Me.TextBox_Name.Text & ","
        Else
            'Andernfalls den Wert für weiblich zuweisen
            dblFaktor = FAKTOR_FRAU
            strTextAnrede = "Hallo Frau/Frl. " & Me.TextBox_Name.Text & ","
        End If
 
        'Wert aus der TextBox für Größe nach Double konvertieren
        'Sollte ein Konvertierungsfehler auftreten (was eigentlich nicht sein 
        ' sollte),
        'dann sofort zum Fehlerausgang.
        If Helper.ConvertTextToDouble(Me.TextBox_Size.Text, dblLength) = False _
          Then Goto ErrorExit
            '--->>
            '--->>
 
        'Wert aus der TextBox für Gewicht nach Double konvertieren
        'Sollte ein Konvertierungsfehler auftreten (was eigentlich nicht sein 
        ' sollte),
        'dann sofort zum Fehlerausgang.
        If Helper.ConvertTextToDouble(Me.TextBox_Gewicht.Text, dblGewicht) = _
          False Then Goto ErrorExit
            '--->>
            '--->>
 
        'Idealgewicht berechnen
        dblIdealgewicht = Berechnung.Calculate_Idealgewicht(dblLength, _
          dblFaktor)
 
        'Differenz zwischen Gewicht und Idealgewicht ausrechnen
        dblDifference = dblGewicht - dblIdealgewicht
 
        'Text für Gewicht zusammensetzen
        strTextGewicht = "Ihr Idealgewicht beträgt: " & CStr(dblIdealgewicht) & _
          " kg" & " - Ihr " & _
        "Gewicht: " & CStr(dblGewicht.ToString) & " kg"
 
 
        Select Case dblDifference
            Case Is < -0.5
                strTextErgebnisGewicht = "Sie haben Untergewicht."
            Case Is > 0.5
                strTextErgebnisGewicht = "Sie haben Übergewicht."
            Case Else
                strTextErgebnisGewicht = "Sie haben Normalgewicht."
        End Select
 
        'Formular anzeigen und Werte einfüllen.
        Me.ShowErgebnis(strTextAnrede, strTextGewicht, strTextErgebnisGewicht)
 
 
    'Muss rein, damit nicht in den Fehlerausgang reingelaufen wird.
    Exit Sub
 
    'Fehlerausgang
    ErrorExit:
    'Hier kann noch eine Meldung eingebaut werden, falls benötigt.
    End Sub
 
    Private Sub ShowErgebnis(ByVal strTextAnrede As String, ByVal _
      strTextGewicht As String, ByVal strTextErgebnisGewicht As String)
 
 
        Ergebnis.Show()
        'Sofort nach dem Anzeigen des Formulars dieses weiter nach rechts 
        ' rücken,
        'damit das Eingabeformular nicht überdeckt wird.
        Ergebnis.Location = New Point(Me.Location.X + Me.Width + 20, _
          Me.Location.Y)
 
        Ergebnis.Label_Name.Text                = strTextAnrede
        Ergebnis.Label_Gewicht.Text             = strTextGewicht
        Ergebnis.Label_Ergebnis_Gewicht.Text    = strTextErgebnisGewicht
 
        If Me.RadioButton_Frau.Checked = True Then
            Ergebnis.BackColor                          = Color.Salmon
            Ergebnis.Label_Name.BackColor               = Color.Salmon
            Ergebnis.Label_Gewicht.BackColor            = Color.Salmon
            Ergebnis.Label_Ergebnis_Gewicht.BackColor   = Color.Salmon
        Else
            Ergebnis.BackColor                          = Color.LightBlue
            Ergebnis.Label_Name.BackColor               = Color.LightBlue
            Ergebnis.Label_Gewicht.BackColor            = Color.LightBlue
            Ergebnis.Label_Ergebnis_Gewicht.BackColor   = Color.LightBlue
        End If
 
 
    End Sub

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

strTextGewicht = "Ihr Idealgewicht beträgt: " & CStr(dblIdealgewicht) & " kg" & _
  " - Ihr " & _
        "Gewicht: " & CStr(dblGewicht.ToString) & Gewicht & " kg"