Private Sub Command1_Click()
Dim strAux As String

'Text1 = texto original
'Text2 = texto de salida (con simbolos)
'Caracteres a reemplazar (ejemplo):
'   "a" = "$"
'   "b" = "&"
'   "c" = "/"
'   etc, etc

'copia texto ingresado
strAux = Text1.Text
'reemplaza todas las ocurrencias de "a" por "$"
strAux = Replace(strAux, "a", "$")
'reemplaza todas las ocurrencias de "b" por "&"
strAux = Replace(strAux, "b", "&")
'reemplaza todas las ocurrencias de "c" por "/"
strAux = Replace(strAux, "c", "/")
'guarda resultado en texto de salida
Text2.Text = strAux
End Sub

Option Explicit

Private Sub Command1_Click()
Dim a() As Long
Dim ret As String

ReDim a(11)
a(0) = 2
a(1) = 6
a(2) = 3
a(3) = 7
a(4) = 8
a(5) = 4
a(6) = 2
a(7) = 4
a(8) = 2
a(9) = 1
a(10) = 1
a(11) = 8
ret = Emparejar(a, 10)
MsgBox ret
End Sub

Private Function Emparejar(Matriz() As Long, ByVal Valor As Long) As String
'devuelve una cadena del tipo: Valor1 + "," + Valor2 + "/"
'notar que el "/" es sólo un separador
Dim I As Long
Dim J As Long
Dim Max As Long
Dim retStr As String

Max = UBound(Matriz)
retStr = ""

For I = 0 To Max - 1
    For J = I + 1 To Max
        If (Matriz(I) + Matriz(J) <= Valor) Then
            'la pareja no supera el valor
            retStr = retStr & I & "," & J & "/"
        End If
    Next J
Next I
Emparejar = retStr
End Function