Назначение значений массиву

Question

Я пытаюсь изменить значение массива в VBA, но происходит ошибка времени выполнения '13' Несоответствие типа Я пытаюсь открыть форму пользователя, где 6 кнопок, когда нажимаются первые 5 кнопок, то шестой будет включен

Public I As Integer 
Public Botones As Variant 

Sub funcion_final() 
Botones = Array(False, False, False, False) 
MainFrame.Show 
End Sub 

Function ChangeValue(I) 
Botones(I) = True //Here is the error 
End Function 

а вот код кнопки, все они имеют точно такой же код, только изменяя число, которое отправляется в качестве параметра

Private Sub BPieza_1_Click() 
ChangeValue 0 
End Sub 

Answer 1

funcion_final() никогда не вызывается, поэтому массив никогда инициализируется. Перед вызовом ChangeValue() убедитесь, что вы звоните funcion_final().