Sub CHLENRJADA()
    Dim I As Long
    Dim RakNaGoreSvishet As Boolean
    Dim Y As Double
    Dim X As Double
    Dim Mnojitel As Long
    Dim Znamenatel As Long
    Dim CHLEN As Double
    Dim CHLENLast As Double
    
    Dim Parms As Double
    
    Parms =  0 . 5  ' Ïàðàìåòð ðàçíîñòè äî êîòîðîãî ñ÷èòàòü îðãàíèçóé ââîä ïî InputBox
    
    CHLENLast =  0 
    CHLEN =  1 
    Y = CHLENLast
   
    I =  0 
    Mnojitel =  0 
    Znamenatel =  1 
    RakNaGoreSvisnet = ((Abs(CHLENLast - CHLEN)) < Parms)
    
    Do While Not RakNaGoreSvisnet
        I = I +  1 
        
        Y = Y + CHLEN
        CHLENLast = CHLEN
        
        Mnojitel = Mnojitel +  1  + (I Mod  2 )
        Znamenatel = Znamenatel * Mnojitel
        CHLEN = Stepen(X, I) / Znamenatel   ' Ôóíêöèþ âîçâåäåíèÿ â ñòåïåíü íàïèøè ñàìà, òàì íåò íè÷åãî ñëîæíîãî
        RakNaGoreSvisnet = ((Abs(CHLENLast - CHLEN)) < Parms)
    
    Loop