Процедуры в Visual Basic

[Drrragster]

Помогите пожалуйста. Нужно написать программу которая с помощью процедуры находила среди чисел 1,2,...,N такие, которые можно представить в виде суммы квадратов двух натуральных чисел.

Чтобы это выполнялось для одного числа я сделал. А как сделать чтобы это выполнялось для нескольких чисел введенных через запятую, то есть для строки

Вот листинг программы для одного числа:

Код: Выделить всё

Option Explicit
Sub kvad(ByRef n As String, ByRef k As String)
  Dim i, j As Integer
  k = "нельзя"
  For i = 1 To n
    For j = 1 To n
      If n = (i * i) + (j * j) Then
        k = "можно"
      End If
    Next j
  Next i
End Sub
Private Sub Command1_Click()
Dim num As String, kol As String
        num = Val(Text1.Text)
kvad num, kol
Print kol
End Sub

Помогите пожалуйста, а то переключившись на Паскаль я позабывал многое из Бэйсика, даже не помню как вводить строки, а учебник нормальный нигде не найдешь