Вычислить сумму первых тридцати нечетных чисел деленную на произведение первых 7 четных чисел - VB

Sub task
      Sodd#=0
      for i%=1 to 30
          Sodd#=Sodd#+2*i%-1
      Next i%
      Peven#=1
      For i%=1 to 7
          Peven#=Peven#*2*i%
      Next i%
      Debug.print Sodd#/Peven#
End Sub