[Aceitar apenas data como dado válido]

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