Tengo el siguiente codigo:
Código:
Dim vDatos() As String
Dim Item As ListItem
Dim i As Long
vDatos = Split(enlace.text, "http://")
For i = LBound(vDatos) To UBound(vDatos)
Set Item = lstListing.ListItems.Add(, , vDatos(i))
Next
El cual tengo un textbox donde pego enlaces, y los separa uno a uno para posteriormente añadirlos en orden en una listview, todo es correcto, pero cuando se añade todo a la listview, siempre me deja un espacio que es lo ultimo que añade, quedandose así:
No tengo mucha idea de que sucede, alguien puede ayudarme?
Muchas gracias.