[Resolvido] InputBox com encerramento automático

Viva a todos, aqui estou eu com mais uma dúvida este ano.
O seguinte código é de um exemplo do Sr. Avelino Sampaio e serve para fazer uma Caixa de Mensagem encerrar automáticamente:

Num Modulo

Código:

Public Function MsgBoxTimer(Seconds As Integer, Prompt As String, _
Optional Buttons As VbMsgBoxStyle = vbOKOnly, _
Optional Title As String) As VbMsgBoxResult
Dim wshell As Object
Set wshell = CreateObject("WScript.Shell")
MsgBoxTimer = wshell.PopUp(Prompt, Seconds, Title, Buttons)
End Function

e depois no Form

Código:

MsgBoxTimer 2,"Teste com a caixa de mensagem...", vbOKOnly, "Aviso"

Como seria para fechar uma "Inputbox" automáticamente, passado um determinado tempo?

Obrigado

Bruno Gordino

veja esse tópico
https://www.maximoaccess.com/t2192-resolvidomsg-box-com-fechamento-automatico

Viva,

Dei uma olhada no tópico e mais parecido que vi algo mas para Visual Studio:
https://msdn.microsoft.com/en-us/library/aa979056(v=vs.71).aspx

Código:

INPUTBOX(cInputPrompt [, cDialogCaption [, cDefaultValue [, nTimeout [,cTimeoutValue]]]])

Código:

Y = "Nothing at all"
Y = INPUTBOX("TypeHere","Input ",Y,5000)
         && Displays dialog box for 5 seconds,
         && then displays anything typed or "Nothing at all"

Entretanto deixo aqui o exemplo onde estou a fazer testes.

Obrigado

Bruno, uma inputbox serve para o usuário informar um valor e esse valor informado ser usado no código.

Na sua ideia, ocorrendo o fechamento automático, e se o usuário não informou nada, como o código deveria proceder sem valor capturado?

Viva,
O que eu preciso é fechar a "Inputbox" após um tempo e que o valor esteja "Nothing at all".
Cumprimentos

Bruno Gordino

Veja este artigo
usandoaccess.com.br/tutoriais/inputbox-com-entrada-para-senha.asp

Nele foi usado um formulário para montar uma inputbox personalizada. Sendo assim, bastaria usar no formulário inputbox porsonalizado um timer.

Viva
Muito obrigado mais uma vez.
Até uma próxima
Cumprimentos

Bruno Gordino

O fórum agradece o retorno. Sucesso.