Перевести код вычисления выражения с Pascal - Visual Basic .NET (64645)

Public Class Form1
    Const d = 5.3
    Dim y As Double
    Dim pp As Long
    Dim ss As Double
 
    Private Function summ() As Double
        Dim s As Double = 0
        Dim a(17) As Double
        a = {6, 4, 3, 16, 10, 17, 9, 5, 7, 3, 14, 0.5, 11, 0.6, 5, 3, 2, 9}
        For i = 0 To 17
            s += (a(i) - d)
        Next
        summ = s
    End Function
 
    Private Function proiz() As Long
        Dim p As Integer = 1
        Dim h As Integer = 0
        Dim c0 As Integer = 15
        For i = 0 To 2
            p = p * (c0 + h)
            h = h + 5
        Next
        proiz = p
    End Function
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        pp = proiz()
        ss = summ()
        y = pp - ss
        MsgBox("y= " & y)
    End Sub
End Class