[Resolvido]Fechar msgbox automaticamente

Boa tarde!

Caros mestres, em vez de ter que clicar no 'OK' para fechar uma msgbox, existe alguma forma dela fechar sozinha?

Ex: Vc vai lá e clica em Excluir Registro e o sistema exibe a msg "Registro excluido com sucesso!" dai vc clica em ok pra fechar a msg certo?

Gostaria que o sistema exibisse a msg e logo em seguida a fechasse automaticamente. É possível isso?

Abraços!

msgbox - Mais um exemplo de MsgBox com fechamento automático

msgbox - Msgbox com tempo

Achei esse modelo do criquio e PILOTO e funciona perfeitamente, porém em vez de colocar o código no próprio fortm, coloquei em um módulo e, quando chamo a função, o sistem aexecuta direitinho, porém não fecha a msg automaticamente, só fecha automaticamente.

Pq colocando o codigo no módulo, não funciona 100%? E outra coisa.. Já que a msg fecha automaticamente, teria como retirar o botão ok e o 'X' vermelho da msg?

Eis o código:

Public Function msgboxExcluir()
Dim wShell As Object, Prompt As String, Seconds As Integer, Title As String, Buttons As Boolean
Set wShell = CreateObject("WScript.Shell")
Prompt = " Cadastro excluído!"
Seconds = 1
Title = " Sispac"
Buttons = vbOKOnly
msgboxExcluir = wShell.PopUp(Prompt, Seconds, Title, Buttons)
End Function