Usar Split () y Expresion Regular para numeros

[jjoseph506]

ok gracias....bueno sucede que es un tema de sintaxis ..... he hecho pruebas con sintaxis similares a la que me indicas ...y nada , en particular la que me propusiste

arroja un error : "Calificador no valido " , y nuevamente se que es por la sintaxis .

Pero ya lo resolvi gracias a una idea del experto Blooddragon .. ahorita estoy por activar sus comentarios pero esa con problemas la pagina ....asi que demora..ire poniendo la solucion a la cual llegue modificando lo que me indico el experto

Dim strtexto() As String
Dim numero As String

For i = 0 To 9 Step 1

// recojera numero por numero con Str mientras avanza el for
numero = Str(i)

// realizara numero por numero comenzando por "i" la división de la cadena
strtexto = Split(Text1(2).Text, numero)

//comprobara si la parte izquierda de esta división esta compuesta unicamente
// por valores no numericos con IsNumeric , si es asi sale del For

If (IsNumeric(strtexto(0))) Then Exit For

// con lo que se aplica el split en donde el "i" cumplio la condicion
// y el valor que necesito es srtexto(0)

Next