MsgBox überschreiben

Public Function MsgBox(strText As String, _
Optional intSymbol As VbMsgBoxStyle= vbOKOnly, _
Optional strTitel As String = "Anwendung") As VbMsgBoxResult

If Left(strText, 6) = "Fehler" And IsMissing(strTitel) Then
MsgBox = VBA.MsgBox(strText, intSymbol, strTitel & " - Fehlermitteilung")
Else
MsgBox = VBA.MsgBox(strText, intSymbol, strTitel)
End If
End Function

Hinweise:
Den Standardwert des optionalen Arguments strTitel (hier "Anwendung") passend ersetzen.
Wenn der Text mit dem Wort "Fehler" beginnt, erscheint ein entsprechender Titelleistentext (Falls keiner übergeben wurde).
Beachte: Mit VBA.MsgBox(... wird auf die originale MsgBox-Funktion zugegriffen.