Excel, VBA. Помогите пожалуйста =)

[Millenia]

Вот программа, он у меня почему то на else ругается =( не могу понять почему =(

 Sub pr1()
Dim y As Single
Dim x As Single
Dim b As Single
Dim xN As Single
Dim xK As Single
Dim Dx As Single
Dim N As Byte
'ввод исходных данных
b = InputBox("Ввести значение b")
xN = InputBox("Ввести значение xN")
xK = InputBox("Ввести значение xK")
Dx = InputBox("Ввести значение Dx")
'проверка данных
If (xK <= xN) Or (Dx <= 0) Then Cells(1, 1) = "ввод исходных данных"
Cells(2, 1) = "xN = " & xN
Cells(3, 1) = "xK = " & xK
Cells(4, 1) = "Dx = " & Dx
Else
'выполнение расчета
Cells(1, 1) = "№"
Cells(2, 1) = "x"
Cells(3, 1) = "y"
N = 1
x = xN
While x <= xK
y = 2 * x * (x + b)
Cells(1 + N, 1) = N
Cells(1 + N, 2) = x
Cells(1 + N, 3) = y
N = N + 1
x = x + Dx
Wend
Cells(2 + N, 1) = "при b = " & b
End If
End Sub

[Millenia]

Блин, все...
нашла ошибку))

[testtest]

ну да, из-за таких особенностей vba и не любят.