Do something for each selected item in a listbox

Hi,

I can't seem to find an answer to this.
What I'm trying to do is find each selected item from the multiselection enabled listbox on a userform. Find the result in a sheet if everything is ok, then the write a value in the offset of the found result.
My problem is that I don't know how to reference each selected item in the listbox?
If I knew that...I could insert it in this code:

If chkBoxVse.Value = True Then
    For Each fSarza In SSarze.Range("Šarže[Šarža]")
        If fSarza = cboSarza And fSarza.Offset(, 3) = cboPodjetje And fSarza.Offset(, 12) = "" Then
            fSarza.Offset(, 12) = nValue
        End If
    Next fSarza
Else
    For each "selected item in listbox1"
    For Each fSarza In SSarze.Range("Šarže[Šarža]")
        If fSarza = cboSarza And fSarza.Offset(, 3) = cboPodjetje And fSarza.Offset(, 4) = "selected item in listbox1" And fSarza.Offset(, 12) = "" Then
            fSarza.Offset(, 12) = nValue
        End If
    Next "selected item in listbox1"
    Next fSarza
End If

After the Else is where the problem begins

Please help.

BR, Denis