Как отключить окно с такой надписью: "Microsoft Office Word - обнаружена ошибка. Приложение будет закрыто"?

Private Sub UserControl_Terminate()
    MsgBox "UserControl_Terminate"
End Sub

Private Sub UserControl_Initialize()
    Dim ii&
    m_ThisDate = Date
    Ignore_opX_Click = True
    Set PicDay = Controls.Add("VB.PictureBox", "PicDay"): With PicDay
        .Visible = 1
        .BorderStyle = 0
    End With
    Set PicBtn = Controls.Add("VB.PictureBox", "PicBtn"): With PicBtn
        .Visible = 1
        .BorderStyle = 0
    End With
    'Создание дней недели
    For j = 0 To jUbn
        Set lb = Controls.Add("VB.Label", "lb" & j): With lb
            .Visible = 1
            .Alignment = 2
            .FontBold = 1
        End With
    Next
    'Создание дней -10 до +10
    For j = 0 To jUbn: For i = 0 To iUbn
        If ii Then Load opX(ii)
        With opX(ii): .Visible = 1
            Set .Container = PicDay
        End With
        ii = ii + 1
    Next i, j: opX(ii \ 2).BorderStyle = 1 'Центральная Yes
   
    'Создание нижних кнопок
    Set HScr = Controls.Add("VB.HScrollBar", "HScr", PicBtn): With HScr
        .Visible = 1
        .Min = -3: .Max = 3
        .Width = .Height * 2
    End With
    For ii = 0 To 1
        If ii Then Load CommandX(ii)
        With CommandX(ii): .Visible = 1
            Set .Container = PicBtn
            .Caption = Choose(ii + 1, "Применить", "Сегодня")
        End With
    Next
    
    'Создание нижних комбобоксов
    For ii = 0 To NumCmbbx - 1
        If ii Then Load cmbX(ii)
        With cmbX(ii): .Visible = 1
            Set .Container = PicBtn
            Select Case ii
            Case 0 'Заполнение названий опций
                For Each v In Array("от сегодня", "от понед.")
                    .AddItem v
                Next: .ListIndex = 0
            Case 1 'Заполнение названий месяцев
                For i = 1 To 12: .AddItem Format(DateSerial(0, i, 1), "mmmm")
                Next: .Text = Format(DateSerial(0, Month(m_ThisDate), 1), "mmmm")
            Case 2
            For i = 1899 To Year(m_ThisDate) + 100: .AddItem CStr(i)
            Next: .Text = Year(m_ThisDate)
            End Select
        End With
    Next
    Filling
    created = True
    Ignore_opX_Click = False
End Sub