[Resolvido]Mensagem para por data

Bom dia a todos.
Criei a seguinte função baseado em um exemplo aqui do forum.
Public Function LanEntrada() As Integer

Dim BancoDados As DAO.Database
Dim RS As DAO.Recordset

Set BancoDados = CurrentDb()
Set RS = BancoDados.OpenRecordset("HistPgPed", dbOpenDynaset)

RS.AddNew
RS("IDPEDIDO") = [CpNotaFiscal]
RS("Historico") = "Pagamento Valor de " & Format$("R$") & Me.CpDuplicatas
RS("DATALAN") = Date
RS("ValorPg") = Me.CpDuplicatas - Me.vlor
RS("VlrOrig") = Me.CpValTotalProd
RS("VlrSucata") = Me.CpSucatas
RS("RestaPagar") = Me.CpValTotalProd - Me.CpDuplicatas - Me.CpValorDesc - RS("VlrSucata")
RS("IdConta") = DLookup("CdUsuario", "Usuario")

RS.Update
RS.MoveLast
RS.Close
Set RS = Nothing
End Function

Gostaria de saber como poderia muda a seguinte linha: RS("DATALAN") = Date
para que em vez de ser lançada a data atual , aparecesse uma caixa de msg onde eu digitasse a data correta do pagamento.
acho que caixa de msg nao e bem o nome correto..
MAs spero que tenham entendido..

Grato pela atenção..

Ney antos

Crie uma Variavel chamafa F

e coloque assim:

Public Function LanEntrada() As Integer

Dim BancoDados As DAO.Database
Dim RS As DAO.Recordset
Dim F as Date

F = InputBox("Informe a Data no formato (01/08/2016):", "Data Lançamento")

....

RS("DATALAN") = F

...

Prezado Fabio , muito obrigado deu certinho.

Att

Ney