Msg-Box immer im Vordergrund

bei einem Ereignis in meinem Excelsheet lasse ich eine normale MsgBox ausgeben.
sub fehler()
z = MsgBox("Fehler!")
end sub

Es kommt aber häufig vor,dass ich in anderen Programmen arbeite und dann die msgbox nicht sehe. Ich sehe nur, dass Excel blinkt und sobald ich dann unten in der Taskleiste Excel aktiviere, sehe ich auch die Box.

sub fehler()
Das ganze wollte ich so beheben:
Windows("Datenerfassung.xls").Activate
z = MsgBox("Fehler!")
end sub

Aber das klappt nicht. Kann mir jemand sagen, wie die MsgBox immer in den Vordergrund gelangen kann ?

Danke!