Sub s()
Dim k As Integer
Dim n, Z, Z1, d, x, y, s, a, b As Double
k = 2

a = InputBox("")
b = InputBox("")
n = InputBox("")
a = CDbl(a)
b = CDbl(b)
n = CDbl(n)

s = 0

Do
    d = (b - a) / k
    s = 0
    Z1 = Z
    For i = 0 To k - 1
        x = a + i * d
        y = Exp(x ^ 2)
        s = s + y
    Next i
    Z = s * d
    k = k + 1
Loop While Z - Z1 >= n
MsgBox Z1
MsgBox k
MsgBox Z
MsgBox s

End Sub

Sub tt()
    Dim k As Integer
    Dim n, Z, Z1, d, x, y, s, a, b As Double
'Димок сами потом перепишите, только почитайте сначала как это правильно делается
    On Error GoTo AAA
    a = CDbl(InputBox("Введите начало отрезка"))
    b = CDbl(InputBox("Введите окончание отрезка"))
    n = CDbl(InputBox("Введите точность"))
    On Error GoTo 0
    k = 2
    Z = Exp(a ^ 2)
    On Error GoTo BBB
    Do
        Z1 = Z
        d = (b - a) / k
        For i = 1 To k - 1
            y = y + Exp((a + i * d) ^ 2)
        Next i
        Z = y * d
        k = k + 1
        y = 0
    Loop While Z - Z1 >= n
    MsgBox "Интеграл равен " & Z
    Exit Sub
AAA: 'если введены не числа
    MsgBox "Ошибка ввода"
BBB: 'если получается очень много или очень мало
    MsgBox "Переполнение. Введите числа поменьше"
End Sub