tu hai un list con ad ogni riga dei valori separati da punti e virgola... tu vuoi quei valori?

se si fai

Public Function takeval(lista As ListBox, n°riga As Integer, n°val As Integer, delim As String) As String
On Error GoTo errore
a = Split(lista.List(n°riga), delim)
takeval = a(n°val)
errore:
End Function

Private Sub Command1_Click()
MsgBox takeval(List1, 1, 5, ";")
End Sub

dichiarata la funzione principale (public fnuction....end function), puoi sempre inserire ovunque vuoi: takeval(oggetto list, numero riga, numero valore, elemento separatore dei valori).

dato che la mia è una funzione, ricorda di assegnalra ad una variabile, o a un'istruzione come msgbox.