Подпрограммы ошибка - VBA

Формулировка задачи:

Добрый день. не могу решить проблему ((. Вычислить F=(p1/(p2-p1))+p3 где p1 – произведение всех нечетных чисел в диапазоне от 20 до 35; p2 – произведение всех нечетных чисел в диапазоне от 51 до 68; p3 – произведение всех нечетных чисел в диапазоне от –2 до –18.

Option Explicit
Sub pro(np, kp, p1, p2, p3)
Dim x As Integer
Dim p As Integer
For x = np To kp Step 1
If x Mod 2 <> 0 Then p = x * x
Next x
End Sub
Sub осн()
Dim p1 As Single, p2 As Single, p3 As Single, F As Integer
Call pro(20, 35, p1)
Call pro(51, 68, p2)
Call pro(-2, -18, p3)
F = (p1 / (p2 - p1)) + p3
Debug.Print "F="; F
End Sub

Решение задачи: «Подпрограммы ошибка»

textual
                            Листинг программы 
                        

                            Option Explicit
Sub pro(np As Double, kp As Double, p As Double) '1, p2, p3)
Dim x As Long
p = 1
For x = np To kp 'Step 1
  If x Mod 2 <> 0 Then p = p * x
Next x
End Sub
Sub осн()
Dim p1 As Double, p2 As Double, p3 As Double, F As Double
Call pro(20, 35, p1)
Call pro(51, 68, p2)
Call pro(-18, -2, p3)'ОТ МЕНЬШЕГО К БОЛЬШЕМУ!
F = (p1 / (p2 - p1)) + p3
Debug.Print "F="; F
End Sub
                        