---

Private Sub CommandButton1_Click()
    FormMittelwert.Show
End Sub

---