Como exibir uma mensagem de erro??

[danielmartins_9 0]

Como eu faco p/ exibir uma mensagem de erro..??me ajudem por favor..valeu..

[luiz humberto 0]

Faça assim:

MsgBox "Erro", vbCritical, "Teste Erro"

[Tameirão 0]

Se quiser incrementar use:

 

Private/Public Function/Sub()   On Error goto Erro   'Implementacoes aqui   Exit Function/SubErro:   MsgBox "Erro " & Err.Number & ", " & Err.DescriptionEnd Function/Sub