How to use BEFORE, AFTER and BETWEEN in vb 6.0?

[Manzi]

I am using vb 6.0 and I want, in Date of birth field, none is born tomorrow I want to use message box when a use enter the such date. Thanks

[Awaltii]

Sub mYdate
Simply put 
Dim mydate as Date
Dim entDate as string
Dim dateLim as Integer
Input dateLim
entDate = InputBox ("Enter your date me birth")
if Day(entDate) < dateLim then 
msgBox"You were not born yesterday", vbOkOnly+vbInformation,"Error Input"
EndIf
End Sub