Campos do tipo DATA e, como você cita especificamente o têrmo "máscara", presumo se tratar de edição em um MaskedEditBox.
Na propriedade Format do Masked insira "dd/mm/yyyy" ou "dd/mmm/yyyy" e na propriedade Mask, "##/##/####" ou "##/##/##".
No evento Lost_Focus, crie rotina para validar a data. Não necessáriamente igual mas do tipo:
Private Sub MaskedBox1_LostFocus()
If Len(MaskedBox1.ClipText) > 0 Then
If IsDate(MaskedBox1.Text) = False Then
MsgBox "Data inválida!"
MaskedBox1.Text = "__/__/____"
End If
End If
End Sub