Программа на вычисление формулы - VB

Sub task2()
  P#=1
  For i%=1 to 6
       S#=2*i%
       For j%=1 to i%
            S#=S#+(j%^2)+1/(i%^2)
       Next j%
       P#=P#*S#
  Next i%
  P#=P#+3.45
  Debug.print P#
End Sub