Вычисление функции, используя ее разложение в степенной ряд - VB

Ребята, помогите составить програмку Вычислить функцию, используя ее разложение в степенной ряд. Параметр x ввести с клавиатуры. Вычисления закончить, когда очередной член ряда станет меньше заданного значения погрешности (e=0.0001). Для выхода из цикла использовать предложение Exit Do. Для сравнения найти точное значение функции y. Вывести значение S, количество шагов цикла n и значение y. y=cos(x) S= 1-(x^2)/2!+...+((-1)^n)*((x^2n)/(2n!)) Уже два дня сижу, не получается!