escape direction from enemy position

Dim ennemi(2) As Vector3

ennemi(0) = New Vector3(8, 2, 0)
ennemi(1) = New Vector3(-3, -2, 0)
ennemi(2) = New Vector3(-3, -2, 0)


Dim position_archer As Vector3 = New Vector3(0, 0, 0)

Dim direction_minimal As Vector3 = New Vector3(1, 1, 0)
Dim direction_maximal As Vector3 = New Vector3(-1, -1, 0)

Dim vecteur_temporaire As Vector3
For i As Integer = 0 To ennemi.Count - 1
    'je récupère la direction entre l'archer et la position de l'ennemi
    vecteur_temporaire = ennemi(i) - position_archer
    vecteur_temporaire.Normalize()

    'si cette direction est inferieur a la direction minimal, je la stock
    If vecteur_temporaire.X < direction_minimal.X Then direction_minimal.X = vecteur_temporaire.X
    If vecteur_temporaire.Y < direction_minimal.Y Then direction_minimal.Y = vecteur_temporaire.Y

    'si cette direction est superieur a la direction maximal, je la stock
    If vecteur_temporaire.X > direction_maximal.X Then direction_maximal.X = vecteur_temporaire.X
    If vecteur_temporaire.Y > direction_maximal.Y Then direction_maximal.Y = vecteur_temporaire.Y
Next

'je trace une droite entre mes vecteur minimal et maximal
Dim droite_entre_les_direction As Vector3 = direction_maximal - direction_minimal
droite_entre_les_direction.Normalize()

'mon vecteur de fuite est la perpendiculaire de cette droite
Dim fuite_direction As Vector3 = New Vector3(droite_entre_les_direction.Y, -droite_entre_les_direction.X, 0)