программирование Visual Basic

[kpavel1990]

Всем здравствуйте!
у меня вот такой вопрос
я написал программу на Visual Basic в макросах Excel
но она почему то не работает
подскажите, пожалуйста, в чем проблема
Вот задание:
Вычислить выражение слева с помощью встроенных функций (либо с помощью выражения, в котором участвуют встроенные функции). Вычислить выражение справа (сумму ряда) с помощью циклов. Суммирование производить до тех пор, пока очередное слагаемое не станет меньше 10^-7.
ln(1+x)=x-(x^2)/2+(x^3)/3-(x^4)/4.....[-1<x<1]
Вот листинг моей программы:
Sub program1()
Dim k, a, b, x As Double
Cells(1,1)=b

k = 1
a = (b ^ k) / k
x = a

Do While a > 0.0000001

a = ((-1) ^ k + 1) * x * b
k = k + 1
x = x + a

Loop
Cells(1,2) = x

End Sub
Где ошибка то?

[ViktorR]

1. Представьте себе ситуацию, когда b = 0.
Какой получится результат?
2. x - это некоторое значение, которое надо ввести и для него посчитать значение функции, а у Вас...?

...
x = x + a
...

Сумму следует считать так:

sum = 0
...
sum = sum + a  'Например

Как-то так, ...