如何在VBA中应用Linest功能？

I trying to get a third order LinEst function in VBA. However, the error always come out as Expected array when it reaches Ubound(xl). I trying to get a third order LinEst function i