Visual Basic - Funcion empareja numeros

Tengo que idear una función que teniendo x números me busque los mejores emparejamientos sin que la suma de la pareja sobrepase un total y que no se quede por debajo de otra cantidad.

Ejemplo:

numeros: 5,7,3,8,1,1,5,7,9,8,4,3,5,3

Quiero que la suma de las parejas no pase de 10 y no sea menor de 7.

La función debe buscar la forma en la que empareje mas numeros.

7+3
8+1
9+1
5+4
5+3
7+3

Me quedarían el 8,5 con estos emparejamientos. La función debería buscar la mejor combinación para ver si en vez de 2 numeros, me sobrase 1 o mejor aún ninguno.

hola juan

abre una Form1
Inserta un text1
ponle en multiline a true
ponle en scrollbars a 2 o vertical
Inserta un command1

Inserta este codigo
----------------------------------------------------
Private Sub Command1_Click()
r = Chr(13) & Chr(10)
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer

For c = 1 To 9
For d = 1 To 9
text1.SelText = c & "+" & d & r
Next d
Next c
c = c + 1
End Sub
----------------------------------------------------
corre el programa

espero esto te sirva