Mensagem com box em Excel VBA

Excel 2010

Sub testes()

MsgBox "OPERAÇÃO REALIZADA COM SUCESSO !", vbInformation

MsgBox "ERRO !", vbCritical

MsgBox "ALERTA !", vbExclamation

'2° parte superior da caixa

MsgBox "CUIDADO !", vbExclamation, "SISTEMA DE GESTÃO 4.0"

End Sub