[Resolvido]Nova MsgBox exemplo do repositório

Bom dia Damasceno

https://www.maximoaccess.com/t37561-nova-msgbox#256556

Neste seu link a MsgBox não dura só 3 segundos, fica fixa pelo menos no exemplo que anexo ao clicar no comando "Gerar" do único formulário da BD.

Ou eu fiz errado

Obrigado

Assis, falha minha. Corrija o trecho em vermelho.

If bytTempoEmSegundos > 0 Then
   vbResultado = CreateObject("WScript.Shell").PopUp(strMensagem, bytTempoEmSegundos, strTitulo, vbEstilo)
Else
   vbResultado = MsgBox(strMensagem, vbEstilo, strTitulo)
End If

Obrigado Damasceno