Como pasar datos de un listbox a variable

[Insomnia]

Hola

Utiliza el siguiente código que recorre todo el list1 introduciendo los valores en una array de 10 elementos (puedes crear el array del tamaño que desees). Con el list index seleccionas un elemento de la lista.

Código:

    Dim i as Integer
    Dim a(10) As String
    
    For i = 0 To List1.ListCount - 1
        List1.ListIndex = i
        a(i) = List1.Text
    Next i

--Saludos--