Bueno...pues si que es medio compleja la solución por el número de iteraciones que puede hacer ese ciclo, si son 900 y supongamos que tienes 10 números a buscar, estarías iterando 900 X 10 = 9000 veces
No se me ocurre nada de momento mas que la solución original...tienes ya un string separado por ","(1,5,25,8,45) que representa a los números que buscarás...
entonces
arrVar = split(cadena, ",")
Código:
For i = 1 to 900
For j=0 to uBound(arrVar)
lo_encontre = false
If i = arrVar(j) Then
lo_encontre = true
Exit For
End If
Next
If lo_encontre Then
'Imprimes el link
Else
'Imprimes el no.
End If
Next
Demasiadas iteraciones... :-p
A ver si a alguien se le ocurre algo más
Salu2,