MsgBox

É uma função que tanto exibe como permite a escolha de um dos botões que ao ser clicado poderá executar um determinado procedimento.

MsgBox(prompt, [buttons as vbmsgboxstyle = vbokonly], [title], [helpfile], [context]) as vbmsgboxresult

Exemplo 1:

MsgBox "Erro nos dados", vbInformation, "Aviso"

Exemplo 2:

If MsgBox("Deseja Salvar ?", vbQuestion + vbYesNo, "Salvar") = vbYes Then
....
....
End If

Neste exemplo, será apresentado os botões Sim e Não (vbYesNo), juntamente com o ícone de interrogação (vbQuestion). Se responder Sim (vbYes) então será executado o procedimento.

Constante de VBA	Valor	Descrição
VbOKOnly	0	Exibe somente o botão de OK.
VbOKCancel	1	Exibe os botões OK e Cancel.
VbAbortRetryIgnore	2	Exibe os botões Abort, Retry, e Ignore.
VbYesNoCancel	3	Exibe os botões Yes, No, e Cancel .
VbYesNo	4	Exibe os botões Yes e No.
VbRetryCancel	5	Exibe os botões Retry e Cancel.
VbCritical	16	Exibe o ícone de Critical Message.
VbQuestion	32	Exibe o ícone de interrogação.
VbExclamation	48	Exibe o ícone de exclamação.
VbInformation	64	Exibe o ícone de Informação.
VbDefaultButton1	0	O primeiro botão é o selecionado por padrão
VbDefaultButton2	256	O segundo botão é o selecionado por padrão.
VbDefaultButton3	512	O terceiro botão é o selecionado por padrão
VbDefaultButton4	768	O quarto botão é o selecionado por padrão.
VbApplicationModal	0	Application modal – utilizado só depois de responder à MsgBox é que poderá dar continuidade ao trabalho na aplicação corrente.
VbSystemModal	4096	System modal - utilizado só depois de responder à MsgBox é que poderá dar continuidade ao trabalho em qualquer aplicação em curso no sistema.

Valores Produzidos

Como já foi mencionado, MsgBox produz um valor em função do botão acionado, assim produzirá como saída um dos valores constantes da tabela seguinte:

Constante de VBA	Valor	Botão Accionado
vbOK	1	OK
vbCancel	2	Cancel
vbAbort	3	Abort
vbRetry	4	Retry
vbIgnore	5	Ignore
vbYes	6	Yes
vbNo	7	No