Вычислить выражение при заданных параметрах - VB

Private Sub Command1_Click()
    Dim x As Single, n As Integer, a As Integer
    a = 3: n = 45: x = 2.4
    MsgBox Y(a, n, x), vbInformation, "Y = "
End Sub
 
Function Y(a As Integer, n As Integer, x As Single) As Double
  Dim p As Double, i As Integer
    p = 1
    For i = a To n
        p = p * (1 + (Log(2 + Cos(0.05 * i))) / i)
    Next
    Y = 4 * x + p
End Function