Длинная арифметика (Bignum arithmetic) c COM-интерфейсом и C API Functions для Excel на библиотеках MPIR. С/С++

'Для раннего связывания сначала включаем в References библиотеку, потом в конце кода отключаем. 
'Для позднего связывания этого не нужно (см.ниже).
'Sub RUN() 'ЗАПУСКАЕМ ДЛЯ РАННЕГО СВЯЗЫВАНИЯ
'ThisWorkbook.VBProject.References.AddFromGuid "{77D79CA3-15A0-4310-B8D8-0BCBE3F72D96}", 1, 0 ' подключаем библиотеку "BedvitCOM" в References VBA
'Continue 'выполняем нужные команды
'ThisWorkbook.VBProject.References.Remove ThisWorkbook.VBProject.References("BedvitCOM") 'отключаем библиотеку в References VBA
'End Sub
 
Sub Continue()
'раннее связывание
'Dim I As New BignumArithmeticInteger 'Создаем экземпляр класса - массив целых больших чисел
'Dim F As New BignumArithmeticFloat  'Создаем экземпляр класса - массив больших чисел с плавающей точкой
 
'позднее связывание
Dim I As Object: Set I = CreateObject("BedvitCOM.BignumArithmeticInteger")
Dim F As Object: Set F = CreateObject("BedvitCOM.BignumArithmeticFloat")
 
I.Bignum(1) = "111" & String$(74, "1") 'добавляем число из 103 единиц в первое целое длинное число
I.BignumSet 1, "111" & String$(74, "1") 'или так
F.SizeBits(1) = 256 'задаем размер в битах для 1го числа с плавающей точкой (закрывает точность в 77 символов, для десятичной системы)
F.SizeBits(2) = 256 'задаем размер в битах для 2го числа с плавающей точкой
F.SizeBits(3) = 256 'задаем размер в битах для 3го числа с плавающей точкой
F.Bignum(1) = I.Bignum(1) 'копируем данные из одного класса чисел в другой из Integer в Float (из первого в первое)
F.Clone 2, 1 'копируем в рамках одного класса число из первого во второе, т.е. число 2 = числу 1 (в рамках одного класса такое копирование на порядки быстрее)
F.Sum 3, 2, 1 'суммируем в 3е число первое и второе: число3 = число2 + число1
'логика всей арифметики в классах предполагает получение результата в первом параметре(левой части выражения) по аналогии с "x =..."
Debug.Print F.Bignum(3) 'смотрим результат в третьем числе Float
'2.2222222222222222222222222222222222222222222222222222222222222222222222222222E+76 (помещается в 256 бит для возможности перевести в Float, без потери точности)
I.Bignum(3) = F.GetToBignumInt(3) 'преобразование (без округлений, отбрасывается дробная часть) и копирование из Float в Integer с !!!заданной ранее точностью SizeBits!!!  Задавайте нужную точность сразу в BignumArithmeticFloat.
Debug.Print I.Bignum(3) 'смотрим результат в третьем числе Integer
I.Help 'смотрим Help
F.FileGet 3, "C:\1.txt" 'сохраняем 3-е число в файл "C:\1.txt"
'F.Clear 1 'освобождаем память для 1-го числа объекта F (число =0), начиная с BedvitCOM v.2.0.0.0 - это не обязательная команда.
'F.Clear 'освобождаем память для всего объекта F (число =0), начиная с BedvitCOM v.2.0.0.0 - это не обязательная команда.
'I.Clear 'освобождаем память для всего объекта I (число =0), начиная с BedvitCOM v.2.0.0.0 - это не обязательная команда.
End Sub

Dim A, B, C: A = 1: B = 2: C = 3
Dim I As Object: Set I = CreateObject("BedvitCOM.BignumArithmeticInteger") 'Создаем массив целых больших чисел и арифметикой (класс)
I.BignumSet A, "12324344435654132546546546564453131" 'задаем данные в число A
I.BignumSet B, "34534534546546546546554665513213211" 'задаем данные в число B
I.BignumSet C, "0" 'задаем данные в число B
I.Sum C, A, B 'C=A+B
Debug.Print I.Bignum(C) 'смотрим
I.Help 'смотрим Help