VBA运行时错误9：下标超出范围

I have been trying to write a small piece of code to validate to confirm whether or not a date is included in an array. I have been able to scroll through the code until I reach the line I have been trying to write a small piece of co