Find Method error: -Object variable with block set variable not set

Here are declared valriables

Dim MyDate As Date
    If TDayButton Then
        MyDate = Date
    Else
        MyDate = DropCalendar.Value
    End If

TDayButton is OptionButton name. It checks if it's selected