Cliany

Fala pessoal em um text box do meu formulário quero que aceite apenas valores de data fiz dessa forma: If Not IsDate(Me.MP1_PG1_DtDevolBX.Value) Or Len(Me.MP1_PG1_DtDevolBX.Value) <> 10 Then MsgBox "Digite uma data de devolução de pasta válida no formato DD/MM/AAAA!", vbCritical Application.ScreenUpdating = True Exit Sub End If Até ae tudo bem, só que apenas a primeira condicional Not IsDate ele aceita valores de horário, por isso coloquei a segunda condicional para ter 10 caracteres (DD/MM/AAAA),só que ainda aceita valores como 14:52:0000. Tem alguma forma mais prática de aceitar só data em determinado formato como valor? Outra coisa, alguém sabe porque datas antes de 1800 dá um erro de definição de variável? :S