Sub testtest()
Dim X#, L2#, sinX2#, sinX4#, sinX6#
X = 0.8305085035398
L2 = 1.28643 * 10 ^ -4
      
'Вариант 1. При внесении всех аргументов "как есть"
'вызывает ошибку (6) overflow
'   X = 6367558.4968 * X - Sin(X * 2) _
      * (16002.89 + 66.9607 * Sin(X) ^ 2 + 0.3515 * Sin(X) ^ 4 - _
       L2 * (1594561.25 + 5336.535 * Sin(X) ^ 2 + 26.79 * Sin(X) ^ 4 + 0.149 * Sin(X) ^ 6 + _
       L2 * (672483.4 - 811219.9 * Sin(X) ^ 2 + 5420 * Sin(X) ^ 4 - 10.6 * Sin(X) ^ 6 + _
       L2 * (278194 - 830174 * Sin(X) ^ 2 + 572434 * Sin(X) ^ 4 - 16010 * Sin(X) ^ 6 + _
       L2 * (109500 - 574700 * Sin(X) ^ 2 + 863700 * Sin(X) ^ 4 - 398600 * Sin(X) ^ 6)))))
 
sinX2 = Sin(X) ^ 2
sinX4 = Sin(X) ^ 4
sinX6 = Sin(X) ^ 6
 
'Вариант 2. С заменой аргументов со степенями на переменные
'вызывает ошибку (16) Expression too complex
'   X = 6367558.4968 * X - Sin(X * 2) _
      * (16002.89 + 66.9607 * sinX2 + 0.3515 * sinX4 - _
       L2 * (1594561.25 + 5336.535 * sinX2 + 26.79 * sinX4 + 0.149 * sinX6 + _
       L2 * (672483.4 - 811219.9 * sinX2 + 5420 * sinX4 - 10.6 * sinX6 + _
       L2 * (278194 - 830174 * sinX2 + 572434 * sinX4 - 16010 * sinX6 + _
       L2 * (109500 - 574700 * sinX2 + 863700 * sinX4 - 398600 * sinX6)))))
 
'Вариант 3. Разбивка варианта 2 на части
'работает
   X = L2 * (109500 - 574700 * sinX2 + 863700 * sinX4 - 398600 * sinX6)
   X = L2 * (278194 - 830174 * sinX2 + 572434 * sinX4 - 16010 * sinX6 + X)
   X = L2 * (672483.4 - 811219.9 * sinX2 + 5420 * sinX4 - 10.6 * sinX6 + X)
   X = L2 * (1594561.25 + 5336.535 * sinX2 + 26.79 * sinX4 + 0.149 * sinX6 + X)
X = 6367558.4968 * X - Sin(X * 2) * (16002.89 + 66.9607 * sinX2 + 0.3515 * sinX4 - X)
Debug.Print X
End Sub