I have the following code which will give me everything EQUAL to the date I type in but I want to get everything GREATER THAN the date I type in. What can I do to this code to achieve that?

Public Property Get DateAssigned() As Date
DateAssigned = dass
End Property
Public Property Let DateAssigned(ByVal vNewValue As Date)
dass = vNewValue
End Property
Public Property Get SQLDateAssigned() As String
SQLDateAssigned = SQLdass
End Property
Public Property Let SQLDateAssigned(ByVal vNewValue As String)
SQLdass = vNewValue
End Property