自定义日期函数错误

Function Firstday(inputdate As Date)
Dim m As Integer, Y As Integer
    If IsNull(inputdate) Then
        Firstday = Null
    Else
        m = Month(inputdate)
        Y = Year(inputdate)
        Firstday = IIf(m = 1, DateSerial(Y - 1, 12, 26), DateSerial(Y, m - 1, 26))
    End If
End Function

上面的这段代码，在调用这个函数时，如果文本框 inputdate 不输入日期时，显示的是“#错误”，为什么？