将文本框数据添加到列表框

Question

我有一个充满各种数据的excel文件。我有一个列表框，用户可以在其中选择项目并将它们移动到listbox2（所有这些都来自excel中的同一列）。现在，我只想为listbox2中的选定项添加来自textbox8（也与列表框位于同一用户窗体上）的信息。 Listbox2包含序列号，textbox8包含用户的首字母。

以下内容将引发编译错误在下面的***行找不到的方法或数据。

Private Sub CommandButton6_Click()
   Dim LCount As Long
   For LCount = 0 to ListBox2.ListCount -1
   row_number = 3
   Do
     DoEvents
     row_number = row_number + 1
     item_in_review = Sheets("Rework").Range("E" & row_number)
     If item_in_review = ListBox2.Range("E" & row_number) Then   'Error line****
       'Adds the serial numbers to the list box
       Sheets("Rework").Range("M" & row_number) = TextBox8.Value
     End If
   Loop Until item_in_review = ""

 Next LCount
 End Sub