Búsqueda recursiva

[rdorlando]

Lo hice con un string en lugar de un array porque es la forma más comun(vos podes cambiarlo y publicarlo), el unico problema que tiene es que tenes que crear un for por c/u de los cararactes , en mi caso lo hice con 2 como para mostrarte la idea, por ahora no se me ocurre ,me quede con la duda asi que cuando tenga un minuto libre voy a intentar una rutina donde le pases el n° de caracteres y te lo genere sin necesidad de modificar c/vez el codigo.

strText = "0123456789ABCDEFGHIJKLMNÑOPQRSTUVWXYZ"
nLargo = Len(strText)

For y = 1 To nLargo

strCadena1 = Mid(strText, y, 1)

For x = 1 To nLargo

strCadena2 = Mid(strText, x, 1)
strCadena = strCadena1 & strCadena2
Debug.Print strCadena

Next

Next

donde dice "Debug.Print strCadena" tenes que remplazarlo con algun codigo para mostrar el resultado que es la var strCadena , yo lo puse porque lo prove con el VB6 , pero como es generico deberia funciaonar en VBS , si tienes algun problema o duda no dudes en preguntar.