Visual Basic - AYUDA CON UN LIST BOX

Por favor ayudenme, mi problema es el sgte:

Necesito que una cadena, sea numero o letras(palabras), se agregue a un listbox de forma tal que quede de la sgte manera:

I
S
M
A
E
L

Ya intente con la función de cadena Space, pero no logro hacerlo, les agradecere de todo corazón si me ayudan. Gracias por todo

Hola

Bueno pues no se esactamente que pretendes con eso pero se podria hacer asi:

Dim strCadena As String
Dim X As Integer
strCadena = "ISMAEL"

For X = 1 To Len(strCadena)
List1.AddItem Mid(strCadena, X, 1)
Next

Puedes cambiar el valor de la variable strCadena por lo que quiereas.

Saludos
http://www.theemulator.tk

GRACIAS DE VERDAD, ERA OTRO CODIGO QUE NECESITABA PERO NO ME ATREVIA A PREGUNTAR POR ESE, DE TODAS MANERAS NO RESUELVE EL PROBLEMA ORIGINAL, YA QUE LO QUE QUIERO ES QUE LAS LETRAS DE CUALQUIER PALABRA QUE YO INGRESE EN UN TEXTBOX APAREZCAN EN DIAGONAL EN UN LISTBOX.

ESTA ES LA CODIFICACION QUE ESTOY USANDO EN MI PROYECTO:

Private Sub CmdAceptar_Click()
Dim k As Integer, cad As String, L As Integer
cad = TxtCad
L = Len(cad)

k = 1
Do While k <= L
LstC1.AddItem Left(cad, k)
LstC2.AddItem Left(cad, L + 1 - k)
LstC3.AddItem Mid(cad, k, 1)
LstC4.AddItem Right(cad, k)

k = k + 1
Loop
CmdNuevo.SetFocus
End Sub

SOLO ME FALTA CODIFICAR LA LISTA 5 (SON 5 LISTAS) QUE ES LSTC5 Y ENTIENDO QUE ES CON LA PROPIEDAD ADDITEM, PERO NO SE COMO PONERLO, ME HABIAN DICHO CON LA PROPIEDAD SPACE PERO NO VEO LA MANERA DE SACARLO.

DE TODAS MANERAS GRACIAS POR TU AYUDA, YA QUE PUDE RESOLVER LA LISTA 3.