---

Private Sub berechnenButton_Click()
    Dim zahl1 As Double
    Dim zahl2 As Double
    Dim mittelwert As Double

    zahl1 = zahl1Input.Text
    zahl2 = zahl2Input.Text

    mittelwert = (zahl1 + zahl2) / 2

    mittelwertInput.Text = mittelwert

End Sub

---