Числовая последовательность и поиск элементов - VB

Формулировка задачи:

В числовую переменную последовательно вводятся произвольные числа не равные нулю. Количество вводимых чисел заранее не известно. Требуется вычислить и напечатать сумму тех из них, порядковые номера которых являются простыми числами. ну никак не получается самой программу написать( помогите,кто сможет

Решение задачи: «Числовая последовательность и поиск элементов»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Dim l As Integer, i As Integer, f As Boolean, sum As Double
Do
 i = i + 1
 Do
  l = Val(InputBox("Г‚ГўГҐГ¤ГЁГІГҐ Г·ГЁГ±Г«Г®: "))
 If l = 0 Then MsgBox ("Г‚Г» ГўГўГҐГ«ГЁ Г*ГіГ«ГҐГўГ®ГҐ Г·ГЁГ±Г«Г®.ГЏГ®ГўГІГ®Г°ГЁГІГҐ ГўГўГ®Г¤")
 Loop Until l <> 0
 If i <> 1 Then
  f = True
  For j = 2 To Round(Sqr(i))
   If i Mod j = 0 Then f = False
  Next j
  If f Then
   sum = sum + l
   Print "Г—ГЁГ±Г«Г®: "; l & " ГҐГЈГ® ГЁГ*Г¤ГҐГЄГ±: " & i
  End If
 End If
Loop Until MsgBox("Г‚Г» ГµГ®ГІГЁГІГҐ ГЇГ®ГўГІГ®Г°ГЁГІГј ГўГўГ®Г¤?", vbYesNo) = 7
Print sum
End Sub
                        