Visual Basic задача

[Rainbow7]

Задание: Вводится последовательность целых чисел. Найти среди них “точные квадраты” (16,25 и т.д.) и подсчитать количество чисел, не являющихся таковыми.


Вопрос: Как сделать так, чтобы последовательность вводилась не автоматически вводилась, а вручную?

Private Sub Command1_Click()
Label1 = "Вводится последовательность целых чисел. Найти среди них точные квадраты (16,25 и т.д.) и подсчитать количество чисел, не являющихся таковыми."
List1.Clear: List2.Clear
Dim n As String, m() As Single, b As Boolean, min As Single, max As Single, nmin As Single, nmax As Single
Randomize
n = InputBox("Введите количество чисел")
ReDim m(n)
min = 10000000
For i = 1 To n
m(i) = Int(Rnd * 1000)
List1.AddItem m(i)
If Int(Sqr(m(i))) ^ 2 = m(i) Then List2.AddItem m(i) Else kol = kol + 1
Next i
Text1.Text = kol
End Sub

Private Sub Command4_Click()
End
End Sub


Private Sub List1_Click()

End Sub