erste Spalte aus Listbox als Value

ich lese mit folgendem Code Inhalte von Zellen in eine zweispaltige Listbox ein:

Dim anf As Range
Dim fert As Range
Dim such As String

zeile = 0
lsbProd.ColumnCount = 2

such = comboProd.Value
For Each c In Sheets("Liste").Range("D21 :D1000")
If c.Value = such Then
Set anf = c.Offset(1, -1)
Set fert = c.Offset(70, -1)
Exit For
End If

Next c

For Each c In Range(anf, fert)
If c.Value = "" Then
Exit For
Else
lsbProd.AddItem c
lsbProd.List(zeile, 1) = c.Offset(0, 1)
zeile = zeile + 1
End If
Next c

Die erste Listbox-Spalte ist die Artikelnummer, die Zweite der
Artikelname.

Nun möchte ich aus den aufgelisteten Artikel einen auswählen und die Artikelnummer in einer Textbox erscheinen lassen.

Textbox1.value = lsbProd.value

Wie schaffe ich es, dass Value der listbox die erste Spalte ist.
Momentan wird mir in der Textbox der Artikelname(2. Spalte) und nicht die Artikelnummer(1.Spalte) angezeigt.

Kann mir jemand sagen wie es geht?

Vielen Dank im voraus

Michael