Вычисление суммы факториалов всех четных чисел от m до n - VB

Option Explicit
 
Private Sub Command1_Click()
Dim f as long, s as long, n As Integer, m As Integer, i As Integer
f = 1
n = InputBox("Введите n")
m = InputBox("Введите m")
For i = 1 To m
  f = f * i
  if i mod 2=0 and i>=n then s=s+f
Next i
Print s
 
End Sub