Introduction - If you have any usage issues, please Google them yourself
Sub btnCal_OnClick
dim SpaceForm
dim X, Y, Z, B, L, H, Elli, i, A_earth, E_earth
set SpaceForm=document.Space
for i = 0 to 2
if SpaceForm.optElli(i).checked Then Elli =
SpaceForm.optElli(i).value