Проблема с компиляцией. На одних машинах работает на др. нет

Option Explicit
 
Private Const OBJ_COUNT As Integer = 3
Private ObjArr() As Object
 
Private Sub Form_Load()
  Call FillObjectArray
  Call EnumerateObjects
End Sub
 
Sub EnumerateObjects()
  Dim i As Integer
  
  For i = 1 To OBJ_COUNT
    Debug.Print ObjArr(i).Language
  Next
End Sub
 
Sub FillObjectArray()
  Dim MyObj As Object
  Dim i As Integer
  
  On Error Resume Next
  For i = 1 To OBJ_COUNT
    Set MyObj = CreateObject("ScriptControl1")
    If Err = 0 Then
      ReDim Preserve ObjArr(1 To i)
      Set ObjArr(i) = MyObj
      ObjArr(i).Language = "VBScript"
    End If
  Next
End Sub

Option Explicit
 
Private Const OBJ_COUNT As Integer = 3
Private ObjArr() As Object
 
Private Sub Form_Load()
  If FillObjectArray() Then
    Call EnumerateObjects
  Else
    MsgBox "Failed to create array of objects!", vbCritical, "Error"
  End If
End Sub
 
Sub EnumerateObjects()
  Dim i As Integer
  
  For i = 1 To OBJ_COUNT
    Debug.Print ObjArr(i).Language
  Next
End Sub
 
Function FillObjectArray() As Boolean
  Dim MyObj As Object
  Dim i As Integer
  
  FillObjectArray = True
  
  On Error Resume Next
  For i = 1 To OBJ_COUNT
    Set MyObj = CreateObject("ScriptControl1")
    If Err = 0 Then
      ReDim Preserve ObjArr(1 To i)
      Set ObjArr(i) = MyObj
      ObjArr(i).Language = "VBScript"
    Else
      FillObjectArray = False
    End If
  Next
End Function

Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)

Private Sub DataGrid1_Click()