Deze is ook nog fraai:

Function Vierkanten(n)
If n > 1 Then
    Vierkanten = Vierkanten(n - 1) + n ^ 2
Else
    Vierkanten = 1
End If
End Function

Doet het ook nog:-)