Hola!,

Bueno ise este codigo:

Dim List() As String
Dim i As Integer
Dim a As Integer
 
a = Len(txtAwards.Text)
 
lstAwards.Clear
 
txtAwards.Text = RS(7)
List = Split(RS(7), "||")
For i = 0 To Len(a)
lstAwards.AddItem List(i)
Next

Y o que intento hacer con esto es que me agreguen en un ListBox los Split de la variable List(), pero este solo me carga 3 datos y me gustaria que cargase todos los datos.

Para se mas espesifico es algo como esto:

Dim Texto as String
Dim Particion() as String


Texto = "0||0||0||0||0"       ''Son 5 Ceros separados por ||
Particion = Split(Texto, "||")
______
Lista    |
______|
#1| 0  |
#2| 0  |
#3| 0  |
#4| 0  |
#5| 0  |
=====

Podria alguien ayudarme con esto?

Hola amigo gracias por responder, pues como ver si lo he echo!

Aqui te paso el code:

 
 
lstAwards.Clear
 
Dim List() As String
Dim i As Integer
Dim a As Integer
txtAwards.Text = RS(9)
 
a = Len(txtAwards.Text)
 
 
List = Split(RS(9), "/")
For i = 0 To Len(List(i))
lstAwards.AddItem List(i), i
Next
 

Y el txtAwards.Text = "0/0/0/0/0/0/0/0/0/0/0" y solo me devuelve 2 items
Espero me puedas ayudar!

Muchas Gracias amigo ya encontre el problema lo que pasa es que no pense en la funcion UBound(), era lo que necesitaba, muchas gracias!


Para los que tengan la misma duda o problema lo que ise fue lo siguiente:

''Solo Agreguen un ListBox, y Denle un valor a la Variable "str" con separadores "/", sin comillas!
   Dim str as String
   Dim List() As String
    List = Split(str, "/")
 
    for i = 0 To UBound(List())
       List1.additem "Item #" & List(i)
    next