Gemme data fra Listbox med to kolonner

Jeg har en listbox i en userform, der henter data fra et ark i kolonne AO:AP, række 31 til sidste række med dato i kolonne AO (der er ikke altid lige så mange data i AP).

Når en given post vises i userformen, selectes de items i listboxen, hvor den valgte posts ID (i combobox "cbid") står ud for, i kolonne AP. Der vises også selve ID'et i den anden kolonne i listboxen. Dette virker. MEN

Når jeg vil gemme ændringerne, hvis der er selelected og deselected i listboxen for det givne ID, så virker det ikke. Jeg tror, at det er fordi der er to kolonner, og når der gemmes med en For-sætning, så går det galt. Det virker, hvis jeg kun har en kolonne, men det kan jeg ikke bruge. Her er koden der ikke fungerer:

Dim i As Integer

For i = 0 To lbindsatsfelter.ListCount - 1

If lbindsatsfelter.Selected(i) = True Then
Worksheets("Konfiguration").Range("AP32").Offset(i, 0) = cbid.Text
End If

If lbindsatsfelter.Selected(i) = False And Worksheets("Konfiguration").Range("AP32").Offset(i, 0) = cbid.Text Then
Worksheets("Konfiguration").Range("AP32").Offset(i, 0) = ""
End If

Next i

Kan nogen hjælpe?