Определить три точки, являющиеся вершинами треугольника, для которого разность точек вне его и внутри является

Private Coord(1 To 2000) As Double
 
Function Area(n1 As Integer, n2 As Integer, n3 As Integer) As Double
         x1# = Coord(2 * (n1 - 1) + 1)
         y1# = Coord(2 * (n1 - 1) + 2)
         x2# = Coord(2 * (n2 - 1) + 1)
         y2# = Coord(2 * (n2 - 1) + 2)
         x3# = Coord(2 * (n3 - 1) + 1)
         y3# = Coord(2 * (n3 - 1) + 2)
         Area = Abs(0.5 * ((x1# - x3#) * (y2# - y3#) - (x2# - x3#) * (y1# - y3#)))
End Function
 
Sub Search(n As Integer)
 
    Min% = n
    p1% = 0
    p2% = 0
    p3% = 0
 
    For i1% = 1 To n - 2
    
        For i2% = i1% + 1 To n - 1
        
            For i3% = i2% + 1 To n
            
                '::: Проверка, образуют ли точки i1,i2,i3 треугольник
                
                A# = Area(i1%, i2, i3)
                
                If A# > 0 Then '::: Да
                
                   in_point% = 0
                   
                   out_point% = 0
                   
                   For j% = 1 To n  '::: Перебираем все остальные точки
                   
                       If (j% <> i1%) And (j% <> i2%) And (j% <> i3%) Then
                   
                          A1# = Area(j%, i2%, i3%)
                          A2# = Area(i1%, j%, i3%)
                          A3# = Area(i1%, i2%, j%)
                   
                          '::: Точка внутри или вовне
                   
                          If A1# + A2# + A3# > A# Then
                             out_point% = out_point% + 1
                          Else
                             in_point% = in_point% + 1
                          End If
                   
                       End If
                
                   Next j%
                   
                   diff% = Abs(in_point% - out_point%)
                   
                   If diff% < Min% Then
                      Min% = diff%
                      p1% = i1%
                      p2% = i2%
                      p3% = i3%
                   End If
                                   
                End If
                        
            Next i3%
            
        Next i2%
        
    Next i1%
 
    Debug.Print p1%; " "; p2%; " "; p3%
    
End Sub

Private Sub Кнопка2_Click() 
Dim a() As Integer, i As Integer, j As Integer, K As Integer, N As Integer
N = InputBox(" введите кол-во элементов ") 
m = 2 * N 
 
ReDim a(m) 
Randomize 
str = " " 
For i = 1 To m 
a(i) = Int(10 * Rnd + 1) + Int(-10 * Rnd + 1) 
str = str & a(i) & " " 
Next 
MsgBox ("Элементы массива : " & str)