无法找到库或函数 - Visual Basic 6

Question

我是visual basic的新手，当我尝试运行此代码时，会弹出上面的错误。我已经声明了一个名为initiative的用户定义函数，但是没有任何理由弹出错误。

 Private Sub initiate()
For i = 0 To 2
    COURSE(i).Value = False
    SEM(i).Value = False
    If i <> 2 Then
    ODDEVEN(i).Value = False
    End If

感谢任何帮助。