Ошибка выполнения 424 Требуется объект

Question

Эй, я получаю эту ошибку в этом коде:

Private Sub Request_Stuff_button_Click()
    Call Main.createObjects
    Call My_Control.requestStuff
End Sub

в строке 'Call My_Control.requestStuff'. Модуль «Main» выглядит так:

Public My_Control As ControlObject

Public Sub createObjects()
    If My_Control Is Nothing Then
        Set My_Control = New ControlObject
    End If
End Sub

Самое странное, что когда я добавляю

Dim x As Integer
x = My_Control.dummyInt

прямо перед строкой, которая возвращает мне ошибку, x получает правильное значение прямо перед тем, как произошла ошибка, что означает, что My_Control определенно является объектом и определенно не ничем.

Эта ошибка убивает меня, заранее спасибо.

Answer 1

Спасибо, но это не было проблемой, проблема была на самом деле в методе requestStuff, но отладчик зависал в этой строке, а не в методе, и глупо, я забыл проверить это.