Перевести код вычисления выражения с Pascal - VB

Option Explicit
Option Base 1
Private Sub Command1_Click()
Const d = 5.3
Dim y As Single, pp As Long, ss As Single
pp = proiz
ss = summ
y = pp - ss
Print "y = ", y
MsgBox ("Значение = " & y) 'Вывод результата в стандартное окно
End Sub
 
Function summ() As Single
Dim s As Single, i As Integer, d As Double
Dim a()
a() = Array(6, 4, 3, 16, 10, 17, 9, 5, 7, 3, 14, 0.5, 11, 0.6, 5, 3, 2, 9)
s = 0: i = 1
Do While i <= 18
  s = s + (a(i) - d)
  i = i + 1
Loop
summ = s
End Function
 
Function proiz() As Long
Dim p As Double, i As Integer, h As Integer, c0 As Integer
p = 1: i = 1: h = 0: c0 = 15
Do While i <= 3
  p = p * (c0 + h)
  h = h + 5
  i = i + 1
Loop
proiz = p
End Function