программа, считающая интегралы visual basic

[doug1as]

написал код(почти полностью скопировал из методы), ошибка:
"can`t execute code in break mode"
Sub doug1as()
Function f(ByVal x As Single) As Single
f = (Sin(x) * 10 ^ Ln(1 + x))
Dim a As Single
Do
prom = InputBox("a=0")
If Not IsNumeric(prom) Then MsgBox
Loop Until IsNumeric(prom)
a = prom
Do
prom = InputBox("Введите конечную границу отрезка b=2")
If Not IsNumeric(prom) Then MsgBox
Loop Until IsNumeric(prom)
b = prom
If a >= b Then MsgBox
Loop Until a
Do
prom = InputBox("Введите погрешность вычисления e =0.1")
If Not IsNumeric(prom) Then MsgBox
Loop Until IsNumeric(prom)
e = prom
Worksheets("Лист1").Activate
Cells.Clear
ActiveSheet.ChartObjects.Delete
Range("d1") = "Лабораторная работа № 1"
Range("c2") = "Вычисление определённого интеграла y = f(x)"
Range("e3") = "Исходные данные"
Range("d4") = "Нижний предел интегрирования a = " & CSng(a)
Range("d5") = "Верхний предел интегрирования b = " & CSng(b)
Range("d6") = "Погрешность вычисления e = " & CSng(e)
Cells(8, 4).Value = "Значение интеграла S = " & CSng(s)
End Function
End Sub


как победить лабу?)

[doug1as]

Sub doug1as() выделяется вот эта строка