用vb语言编写1^2+2^2+3^2+4^2+5^2+...+n^2>2000,n至少为多少时,不等式成立,并输出n等于

用vb语言编写1^2+2^2+3^2+4^2+5^2+...+n^2>2000,n至少为多少时,不等式成立,并输出n等于多少?
糊弄的别过来,另再百度上看到
Private Sub Command1_Click()
'1^2+2^2+3^2+4^2+……+n^2>1000 //这句可以直接出现?
Dim sum,i
sum = 0:i = 0
Do While sum < 1000# //这是小于没错?还有sum可以直接使用?
i = i + 1
sum = sum + i * i
Loop
MsgBox "最小项数:" & i
End Sub