Salve a tutti
ho un elemento che devo inserire in una listbox, dove sono presenti altri elementi. Ogni elemento in lista, distinto dagli altri, ha alla fine del nome un indice che parte da 1.
Se l'elemento che devo inserire è già presente in lista, viene inserito con l'indice incrementato di uno. Se c'è un indice mancante tra due elementi uguali in lista, allora l' elemento che inserisco tende ad avere come priorità il primo indice mancante.

Al momento ho pensta di scrivere così per ricercare gli indici dell'elemento già presente in lista che voglio inserire


codice:
Dim fileIns As String
fileIns = Left(getFileName(frmName, bio), 23)

If fileList.ListCount > 0 Then
        Dim I As Integer
        
        For I = 0 To fileList.ListCount - 1
            Dim fileL As String
            fileL = (Left(fileList.List(I), 23))
            
            If fileIns = fileL Then
                Dim j As Integer
                For j = 0 To 8
                    If v(j) = "" Then
                        v(j) = Right(fileList.List(I), 1) 'metto l'indice in un vettore
                        Exit For
                    End If
                Next j
            End If
        Next I    
    
    Else: Index = "1"
    End If
ora come posso fare per andarmi a recuperare nel vettore il primo indice libero e assegnarlo all'elemento che sto inserendo?