#If VBA7 Then
    Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal milliseconds As LongPtr) 'MS Office 64 Bit
#Else
    Public Declare Sub Sleep Lib "kernel32" (ByVal milliseconds as Long) 'MS Office 32 Bit
#End If
Const file1 As String = "C:\1\1.txt"
Const file2 As String = "C:\1\2.txt"
Function GetFileString(RangeX As Range) As String
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    If objFSO.FileExists(file1) Then
        Set objOTS = objFSO.OpenTextFile(file1, 8)
    Else
        Set objfile = objFSO.CreateTextFile(file1)
        Set objfile = Nothing
        Set objOTS = objFSO.OpenTextFile(file1, 8)
    End If
    objOTS.Write vbNewLine & RangeX.Value
    'Application.Wait (Now + 2 / 86400)
    Sleep 2000
    Set objTextFile = objFSO.OpenTextFile(file2, 1)
    GetFileString = objTextFile.Readall
    Set objTextFile = Nothing
    Set objOTS = Nothing
    Set objFSO = Nothing
End Function

Function GetFileString(RangeX As Range) As String
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    If objFSO.FileExists(file1) Then
        Set objOTS = objFSO.OpenTextFile(file1, 8)
    Else
        Set objfile = objFSO.CreateTextFile(file1)
        Set objfile = Nothing
        Set objOTS = objFSO.OpenTextFile(file1, 8)
    End If
    objOTS.Write vbNewLine & RangeX.Value
    Application.Wait (Now + TimeValue("0:00:02"))
    Set objTextFile = objFSO.OpenTextFile(file2, 1)
    GetFileString = objTextFile.Readall
    Set objTextFile = Nothing
    Set objOTS = Nothing
    Set objFSO = Nothing
End Function

Sub RUN() 'ЗАПУСКАЕМ
Dim I As Long: With ThisWorkbook.VBProject.References 'подключаем библу для раннего связывания
  For I = 1 To .Count: If .Item(I).GUID = "{77D79CA3-15A0-4310-B8D8-0BCBE3F72D96}" Then Continue: Exit Sub 'если "BedvitCOM" в подключенных - завершаем
  Next I
  .AddFromGuid "{77D79CA3-15A0-4310-B8D8-0BCBE3F72D96}", 1, 0: Continue: End With ' подключаем библу "BedvitCOM"
End Sub
Sub Continue()
Dim I As BignumArithmeticInteger
Set I = New BignumArithmeticInteger 'Создаем массив целых больших чисел и арифметикой (класс)
Dim F As BignumArithmeticFloat
Set F = New BignumArithmeticFloat 'Создаем массив больших чисел с плавающей точкой и арифметикой (класс)
 
I.Bignum(1) = "111" & String$(100, "1") 'добавляем число из 103 единиц в первое целое длинное число
I.BignumSet "111" & String$(100, "1"), 1 'или так
F.SizeBits(1) = 256 'задаем размер в битах для 1го числа с плавающей точкой
F.SizeBits(2) = 256 'задаем размер в битах для 2го числа с плавающей точкой
F.SizeBits(3) = 256 'задаем размер в битах для 3го числа с плавающей точкой
F.Bignum(1) = I.Bignum(1) 'копируем данные из одного класса чисел в другой (из первого в первое)
F.Clone 2, 1 'копируем в рамках одного класса число из первого во второе, т.е. число 2 = числу 1
'в рамках одного класса такое копирование на порядки быстрее
F.Root 3, 2 'вычисляем корень из второго числа в третье.
'логика всей арифметики в классах предполагает получение результата в первом параметре(левой части выражения),
'по аналогии с "=", т.е. число3 = кореньиз(2число)
Debug.Print F.Bignum(3) 'смотрим результат в третьем числе
'1.054092553389459777332964514810906177906518379775072275619168284264198146213079E+51
 
I.Help 'смотрим Help
End Sub

F = Новый COMОбъект("BedvitCOM.BignumArithmeticDouble"); //Создаем массив больших чисел с плавающей точкой и арифметикой (класс)
F.SizeBitsSet(1,256); //задаем размер в битах для 1го числа с плавающей точкой
F.SetBignum( "11111",1); //присваиваем данные для 1го числа
F.Power(1,1,51561); //возводим в степень 51561 первое число и кладем его в первое же число.
f = F.Bignum(1); //кладем данные в переменную из первого числа
Сообщить(f); //смотрим