---

Sub mittelwert()
    Dim eingabe As Integer
    Dim summe As Integer
    Dim anzahl As Integer

    summe = 0
    anzahl = 0

    Do
        eingabe = InputBox("Zahl eingeben")
        summe = summe + eingabe
        anzahl = anzahl + 1
    Loop Until eingabe = 0

    MsgBox "Mittelwert = " & summe / (anzahl - 1)

End Sub

---