Cómo saber cuántas subcadenas crea la función split o cómo recorrerlas todas

[un_tio]

Es decir, dado esto:

cadena=split("Esto es una prueba"," ")

Se me crean subcadenas, que puedo ver con esto:

Response.Write(cadena(0)&"<br>")
Response.Write(cadena(1)&"<br>")

Quiero poder después manejar a mi antojo las subcadenas, teniendo en cuenta que a priori, no sé cuántas cadenas me devolverá el split. Por tanto, quiero o saber cuántos elementos tendré, o algún modo de recorrerlos todos.

Se me había ocurrido con el For Each elemento In grupo, pero me sale en blanco:

Código:

For Each elemento In cadena
Response.Write (elemento)
Next

¿Cómo se hace?

[un_tio]

Con el For Each elemento funciona perfectamente , olvidad lo que os dije.

Queda pendiente el saber el número de elementos que conforman un grupo de cadenas así.

[Saruman]

total = ubound(cadena)