求助！！！！！！！！！

出现错误！Private Sub yubao_Click()
    ReDim yubaoyinzizhi(m)         '重定义存放预报因子输入值的数组变量，用于预报
   Text1(3).Text = ""             '将显示预报结果的文本框text属性置空
   
   Do                      '输入、检验预报因子值
      yinzi$ = ""
      For i = 1 To m
         yubaoyinzizhi(i) = InputBox("请输入" & XX(i) & "预报因子值：", "预报因子值输入框")
         yinzi$ = yinzi$ & yubaoyinzizhi(i) & ","
      Next i
      Answer = MsgBox("您输入的预报因子值是：" & yinzi$ & "输入值正确吗？", 36, "预报因子输入值核对框")
   Loop Until Answer = 6
   
   
   YuBaoZhi = 0
   For i = 1 To m
      On Error GoTo errorhandler: YuBaoZhi = YuBaoZhi + B(i) * YuBaoZhi(i)
   Next i
   YuBaoZhi = b0 + YuBaoZhi                 '计算预报对象的估计值
   
   
   '显示预报因子值和预报结果(区间概率预报)
   Ch$ = Chr(13) + Chr(10): jieguo1$ = Space(4) & "预报因子值：": jieguo2$ = ""
   For i = 1 To m
        jieguo2$ = jieguo2$ & Ch$ & Space(4) & XX(i) & ":" & CSng(yubaoyinzizhi(i))
   Next i
   jieguo3$ = Ch$ & Space(4) & "此时，预报对象" & XX(m + 1) & "为:" & CSng(YuBaoZhi)
   Sy = CSng(Sqr((Syy - U) / (n - m - 1)))
   jieguo4$ = Ch$ & Ch$ & Space(4) & "预报结果取值在" & "[" & CSng(YuBaoZhi) - Sy & "," & CSng(YuBaoZhi) + Sy & "]" & "之间的可能性是68%。"
   jieguo5$ = Ch$ & Ch$ & Space(4) & "预报结果取值在" & "[" & CSng(YuBaoZhi) - 2 * Sy & "," & CSng(YuBaoZhi) + 2 * Sy & "]" & "之间的可能性是95%。"
   Text1(3).Text = jieguo1$ & jieguo2$ & jieguo3$ & jieguo4$ & jieguo5$
   Exit Sub
errorhandler:
   MsgBox (Err.Description)
End Sub