Помогите, пожалуйста, разобраться в чем дело. Следующий кусочек кода выдает невразумительное сообщение об ошибке Exception from HRESULT: 0x800A03EC:

        ' загрузка Excel
        Dim EA As New Excel.Application
        Try
            EA.Visible = True
            Dim ED As Excel.Workbook = EA.Workbooks.Add
            Try
                Dim ES As Excel.Worksheet = ED.ActiveSheet
                ES.Range("A1").FormulaR1C1 = "=IF(R2C2<R2C3, R2C2, R2C3)"
                MsgBox("Осторожно, двери закрываются")
            Catch Ex As Exception
                MsgBox(Ex.Message)
            Finally
                ' закрытие сгенерированного документа
                ED.Close(SaveChanges:=False)
            End Try
        Catch Ex As Exception
            ' отображение диагностического сообщения об ошибке
            MsgBox(Ex.Message)
        Finally
            ' выгрузка ненужного более Excel
            EA.Quit()
        End Try

Попытка вписать эту же формулу при помощи VBA в самом Excel увенчалась полнейшим успехом! Откликнитесь, те кто уже сталкивался с подобной проблемой и нашел способ ее решения.