Найти сумму квадратов всех целых чисел от а до 50 (значение а вводится с клавиатуры)

В Basic - 256....
Составить не менее 2 видов циклов.

Dim a As Integer, i As Integer, s As Stringa = InputBox("Введите число а")For i = a To 50s = s + "," + CStr(i * i)NextMsgBox sa = InputBox("Введите число а")i = a: s = ""Do While i < 51s = s + "," + CStr(i * i)i = i + 1LoopMsgBox s