Creo sin problemas, las primeras dos despejando y las otras mediante for.
dim x as double
for x = 1 to 3 step 0.000001
if 1-x^2/2 < 0 then
print x
exit for
end if
next
for x = 1 to 3 step 0.000001
if 1-x^2/2+x^4/24 < 0 then
print x
exit for
end if
next
for x = 1 to 3 step 0.000001
if 1-x^2/2+x^4/24-x^6/720 < 0 then
print x
exit for
end if
next
for x = 1 to 3 step 0.000001
if 1-x^2/2+x^4/24-x^6/720+x^8/40320 < 0 then
print x
exit for
end if
next
sleep
' RTA:
' raiz(2)
' raiz(6-2*raiz(3))
' 1.56990
' 1.57082