[Resolvido]Inputbox com padrão dd/mm/yyyy...

Colegas, como faço para que a minha string Strinicial seja formatada para aparecer no Box do Input assim:
__/__/____ ?

E como complemento este IF?
If strinicial > ?????????? Then
MsgBox "Insira uma data no padrão dd/mm/aaaa, por favor!"
Exit Sub
End IF

Agradeço desde já!
MPS

MPS, crie um formulário próprio

Obrigado Alexandre, mas eu preciso resolver isto através de um string e não por meio de um controle de formulário.

Se calhar, estamos a falar de coisas diferentes.
Quer em caixa de texto?

Alexandre, veja o que está acontecendo, por favor!
Minha dificuldade é onde está o =====>

Private Sub VISUALIZAR_Click()
Dim strinicial As String
Dim strfinal As String
Dim Rel As String

On Error Resume Next

If GPRELATUS.Value <> 0 Then

Select Case GPRELATUS.Value
Case 1
Rel = "RELSOCIOS DADOS CADASTRAISC"
DoCmd.OpenReport Rel, acViewReport
Exit Sub
End Select


DoCmd.OpenForm "frmadministradorlx"
DoCmd.Minimize

=====> strinicial = format (dd/mm/yyyy)
strinicial = InputBox("Qual a Data Inicial?", "Atenção!", Datadeinicio)
=====> If strinicial <> datevalue Then
MsgBox "Insira uma data no padrão dd/mm/aaaa, por favor!"
Exit Sub
Else
Forms!frmadministradorlx!DATAINICIAL = strinicial
Datadeinicio = strinicial

strfinal = InputBox("Qual a Data Final?", "Atenção!", Date)
Forms!frmadministradorlx!DATAFINAL = strfinal

Select Case GPRELATUS.Value
Case 2
Rel = "RELDOACOES REALIZADASD"
Case 3
Rel = "RELRECEITASRECEBIDASB"
Case 4
Rel = "RELETIQUETASANIVERSARIOA"
Case 5
Rel = "RELCAIXARECEPCAOM"
End Select
MsgBox "Por favor, NÃO aperte a tecla CANCELAR se surgirem novas Caixas de Mensagens!", vbInformation, "Atenção!"
DoCmd.OpenReport Rel, acViewReport
Else
MsgBox "Selecione um Relatório!", vbInformation, "Atenção"
Exit Sub
End If
End sub

Mas esse inputbox é um formulário. Crie um formulário próprio que resolve

Alexandre, eu criei o formulário, mas tive este problema abaixo sem solução e por isso busquei uma outra alternativa.

http://maximoaccess.forumeiros.com/t9850-esperar-a-resposta-no-formulario-para-sair-do-loop-e-continuar

Chame-o assim DoCmd.OpenForm "NomeFormulário", acNormal, , , , acDialog, [NomeVariavel]
quando fechar, o código continua e a variável NomeVariavel tem os dados introduzidos

Alexandre, perfeito!
Tive apenas que colocar o Estilo da Borda como fino pois como ajustável não esperava o fechamento do formulário!
Obrigado!

Ps: Qual que coloco como Resolvildo? Este ou o que você resolveu?

Basta que escreva o texto que precisar e marque resolvido, como na figura anexa

Alexandre, obrigado!
Vou deixar este aqui como não resolvido, pois tenho duvidas se é possível formatar uma variável no INPUTBOX!