Split su numero

[pegaso22]

Ciao a tutti,
non riesco a fare lo split di un numero o numero convertito in stringa che non ha separatori.

ES: 4752911

vorrei
4
7
5
2
9
1
1

Come posso fare?

Fatemi sapere, grazie mille

[optime]

non puoi splittare, non avendo separatori!

Stringa=" 4752911"
For i=1 To Len(Stringa)
   Response.Write Mid(Stringa,i,1) & "
"
Next

that easy!