Работа/не работа редактора VB6 в Windows 10

Set goApp = GetObject(, EXCEL_APP)

Set goApp = CreateObject("Excel.Application")
goApp.Workbooks.Add

Option Explicit
 
Private Declare Function IIDFromString Lib "ole32.dll" (ByVal lpsz As Long, lpiid As Any) As Long
 
Private Type GUIDs
    Data1 As Long
    Data2 As Integer
    Data3 As Integer
    Data4(0 To 7) As Byte
End Type
 
Private Declare Function FindWindowEx Lib "User32" Alias "FindWindowExA" _
        (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, _
         ByVal lpsz2 As String) As Long
Private Declare Function AccessibleObjectFromWindow Lib "oleacc" _
        (ByVal hWnd As Long, ByVal dwId As Long, ByRef riid As GUIDs, _
         ByRef ppvObject As Object) As Long
         
 
Private Const S_OK As Long = &H0
Private Const IID_IDispatch As String = "{00020400-0000-0000-C000-000000000046}"
Private Const OBJID_NATIVEOM As Long = &HFFFFFFF0
 
'===============================================================================
Function GetExcelApp() As Object
   Dim xlApp   As Object ' Excel.Application
   Dim i       As Long
   Dim hWinXL  As Long
'   Dim wb      As Object  ' Excel.Workbook
    hWinXL = FindWindowEx(0&, 0&, "XLMAIN", vbNullString)
    While hWinXL > 0
        i = i + 1
'        Debug.Print "Instance_" & i; hWinXL
        If GetXLapp(hWinXL, xlApp) Then
            Set GetExcelApp = xlApp
            Exit Function
        End If
        hWinXL = FindWindowEx(0, hWinXL, "XLMAIN", vbNullString)
    Wend
End Function
'===============================================================================
'Function GetXLapp(hWinXL As Long, xlApp As Excel.Application) As Boolean
Function GetXLapp(hWinXL As Long, xlApp As Object) As Boolean
   Dim iid        As GUIDs
   Dim obj        As Object
   Dim hWinDesk   As Long
   Dim hWin7      As Long
   '
   Call IIDFromString(StrPtr(IID_IDispatch), iid)
   '
   hWinDesk = FindWindowEx(hWinXL, 0&, "XLDESK", vbNullString)
   hWin7 = FindWindowEx(hWinDesk, 0&, "EXCEL7", vbNullString)
   '
   If AccessibleObjectFromWindow(hWin7, OBJID_NATIVEOM, iid, obj) = S_OK Then
       Set xlApp = obj.Application
       GetXLapp = True
   End If
End Function

Set goApp = GetObject(, EXCEL_APP)
If goApp Is Nothing Then Set goApp = GetExcelApp()

Set goApp = GetObject(, EXCEL_APP)
Set moSW = GetObject(, SW_APP)