Unload Userform funzt nicht

Bei Klicken eines Buttons auf meiner Userform soll die Userform verschwinden und dafür während dem Ausführen des Codes eine "Berechne"-Box erscheinen. Habe dafür nachfolgenden Code. Allerdings erscheint einfach die "Berechne"-Box über der Userform und beide werden am Ende geschlossen.
Habe das unload schon überall hingeschrieben, hat aber nichts geändert. Wie schaffe ich es, dass nur die "Berechne"-Box zu sehen ist.

Danke

~Begin~
Private Sub CommandButton1_Click()

Dim ...

Unload me

Application.ScreenUpdating = False

Berechne.Show False
DoEvents
.
.
.
Berechne.Hide
Application.ScreenUpdating = True

~End~