Подскажите как в vba (access) написать программу для решения : вычислить значение функции y=a/x+b при x= 1, 2, (a, b вводятся с клавиатуры).

Sub Zadanie()
    a = CDbl(InputBox("a ="))
    b = CDbl(InputBox("b ="))
    s = ""

    for x = 1 to 10
        y = a/x+b
        s = s & "y(" & x & ") = " & y & vbNewLine
    next

    MsgBox s
End Sub

Call Zadanie()