Visual Basic - URGENTE: Ayuda con polinomios

Hola a todos, un favor necesito algun modulo o funcion recursiva de un programa que resuleva polinomios de grado N, o al menos el algoritmo.
los polinomios solo son sumas y restas y necesito una funcion que los resuleva.
Gracias

¿ A mi se me ocurre una rutina que evalúe el polinomio en un rango y cuando encuentre un valor que lo aproxime a cero defina este valor como una raiz ?
es decir:
X+1
evalúo desde -3 a 3 en incrementos de 0.1
for j=-3 to 3 step 0.1
if abs(j+1)<0.00001 then
msgbox cstr(j) +"es una solución aproximada"
exit for
end if
next j

ó

for j=-3 to 3 step 0.1
if abs(j+1)=0 then
msgbox cstr(j) +"es una solución exacta"
exit for
end if
next j