---

Private Sub berechneMittelwert_Click()
    Dim Zahl1 As Double
    Dim Zahl2 As Double
    Dim Mittelwert As Double

    Zahl1 = Zahl1Input.Text
    Zahl2 = Zahl2Input.Text

    Mittelwert = (Zahl1 + Zahl2) / 2
    MittelwertOutput.Text = Mittelwert

End Sub

---