vbs这里一直显示第八行类型不匹配，求解答应该怎样改？

Option Explicit

Dim today, year, month, day

today = Date

'从当前日期中提取年、月、日信息
year = Year(today)
month = Trim(CStr(Month(today))) '使用Trim函数删除前面的空格，并将数值类型转换为字符串类型
day = Trim(CStr(Day(today))) '同上

'判断当天是否是6月1日
If month = "6" And day = "1" Then
    '如果是，弹出“儿童节快乐”的消息框
    MsgBox "儿童节快乐！"
End If

这里一直显示第八行类型不匹配，求解答应该怎样改？

today = Date(Now())