Перебор массива чисел - VB

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

Здравствуйте, помогите пожалуйста. Есть код, который генерирует числа (координаты точек) и записывает их в файл, при этом те точки, которые удовлетворяют условию записываются в отдельный файл, но что-то не получается его запустить.

                    Листинг программы
                
 
                        
                          
                    
Public a As Double
Public x1, x2, y1, y2, r1, r2 As Integer
Option Explicit
 
Private Sub Command1_Click()
Call Tochki_Perebor
End Sub
Private Sub Tochki_Perebor()
Dim MyRes As String
 
Dim i As Long
a = Text1.Text
 
Dim MyFile As String 'Объявляем переменную для свободного файла
 
MyFile = FreeFile ' Присваиваем свободный канал, для работы с файлами
Open ("C:\Users\Public\Documents\лабораторные\tochki.txt") For Output As #MyFile 'Открываем файл
 
For i = 1 To a
 
      r1 = 600 + Int(Rnd() * 8600)
      r2 = 600 + Int(Rnd() * 4400)
      
      Circle (r1, r2), 20, 0
      Print i
    
   Print #MyFile, i, r1 / 100, r2 / 100
MyRes = FreeFile
Open ("C:\Users\Public\Documents\лабораторные\result.txt") For Output As #MyRes
   If r1 > x1 And r1 < x2 And y1 < r2 And r2 < y2 Then
   Print #MyRes, i, r1, r2
   Close #MyRes
   Else
   End If
    
Next i
Close #MyFile 'Закрываем файл
 
End Sub

                    Листинг программы
                
 x1 = (Text2.Text * 100) + 600
    y1 = (Text3.Text * 100) + 600
    x2 = (Text4.Text * 100) + 600
    y2 = (Text5.Text * 100) + 600

от сюда берутся условия для сравнения

Решение задачи: «Перебор массива чисел»

textual
                            Листинг программы 
                        
 
                        
                          
                    
For J = 0# To N - 1# Step 1
        For I = 0# To N - 2# - J Step 1
            If Arrayx(I, 1) > Arrayx(I + 1#, 1) Then
                Tmp = Arrayx(I, 1)
                Arrayx(I, 1) = Arrayx(I + 1#, 1)
                Arrayx(I + 1#, 1) = Tmp
            End If
        Next I
    Next J