Написать программу по блок-схеме в VBA

[Master Ogurchick]

Здравствуйте, возникла проблема. Необходимо написать программу по блок схеме в VBA. Написать программу с циклом используя написанную программу. Разделить написанную программу (можно без цикла) на две процедуры: основную и вспомогательную.
Основная процедура «отвечает» за ввод исходных данных и вывод результатов расчетов.
Вспомогательная процедура обеспечивает расчет по формуле в соответствии с вашим заданием.

[Aleksandr H.]

Function second(ByVal x As Double, ByVal a As Double, ByVal b As Double)
    Dim y, y1, y2, y3
    On Error GoTo err
    second = Null
    If b = 0 Then
        MsgBox "Error1"
        Exit Function
    Else
        y1 = a / b
    End If
    If 5 * x = 0 Then
        MsgBox "Error2"
        Exit Function
    Else
        y2 = WorksheetFunction.Ln(5 * x * (1 - y1))
    End If
    If a <= 0 Then
        MsgBox "Error3"
        Exit Function
    Else
        y3 = Exp(x) + Sqr(a * a * a) - Sin(x)
    End If
    If y2 = 0 Then
        MsgBox "Error4"
        Exit Function
    Else
        y = y3 / y2
        second = y
    End If
    Exit Function
err:
    MsgBox "AHTUNG!" & Chr(13) & "Something wrong", vbCritical
    
End Function

Sub first()
    Dim x, a, b, r
    x = CDbl(InputBox("X = ", "X", "0,24"))
    a = CDbl(InputBox("A = ", "A", "1"))
    b = CDbl(InputBox("B = ", "B", "-1"))
    r = second(x, a, b)
    If Not (IsNull(r)) Then MsgBox r
End Sub