Are you sure you have named your variable "Date"?
Haven't got VB6 on me but that would either not be possible, or cause scoping issues (i.e. Date would refer to your var instead of the system function Date).
You could also use
If DateAdd("d", 14, DateVar) <= Int(Now) Then
MsgBox "14 days passed."
End If