我想用vb编一个计算公式Id(2)= U2e /2√(（R1+R2）/k2＋R3 ＋Rb)2+(（X1+X2+XX）/k

我想用vb编一个计算公式Id(2)= U2e /2√(（R1+R2）/k2＋R3 ＋Rb)2+(（X1+X2+XX）/k2＋X3＋Xb＋XX1)2
其中R3和X3是变量,其他都是定植,
补充下：R3=L*R0,X3=L*X0
L是变量（长度0-1500）.不编程序计算量太大了!
定值：U2e=1200v；（R1+R2）/k2=0.0108；Rb=0.00523Ω；（X1+X2+XX）/k2=0.0174；Xb＋XX1 =0.053
用VB编如下计算公式
Id(2)= 1200 /2√(0.0108＋0.23L＋0.00523)2+(0.0174＋0.075L＋0.053)2
,感激不尽!