Preguntas de programación de VB (suma del cuadrado de 1 más el cuadrado de 2 más el cuadrado de n)

Private Sub Form_Load()Dim sum As LongDim i Como entero, n Como suma entera = 0n = Int(InpubBox("Ingrese el valor de n"))Para i = 1 To n suma = suma + i ^ 2NextMsgBox "La suma acumulada de cuadrados es" & sumEnd Sub