Определить, сколько можно купить тетрадей по 12 листов, по 48 листов и по 96 листов, зная цену - VB

Option Explicit
 
Private Sub Комманда1_Click()
Dim S
Dim Z
Dim eps As Double, a, x, f, N As Double
eps = CDbl(InputBox("Задайте точность", "Ввод данных", 0.000000000001))
x = Val(InputBox("Задайте x", "Ввод данных", 60))
N = 0
x = CDec(x * 3.14159265358979 / 180)
Do
Z = F2(N)
    a = CDec((-1) ^ N) * (x ^ (2 * N)) / Z
    S = S + a
    Debug.Print N, S, a, Z
         N = N + 1
Loop While Abs(a) > eps
txtX.Text = S
End Sub
Function F2(Q)
Dim J
F2 = 1
For J = 1 To Q * 2
F2 = F2 * J
Next J
End Function