如何基于文本框vba填充列表框？

Question

嘿伙计们，我需要你们的帮助！我为此写了一个代码： 在标签元素中输入文本： “8 分以下的学生”。 在 TextBox 元素中输入学生姓名。按运行和 如果科目中的学生分数低于 8，则在 ListBox 元素中显示对象名称。

我的代码基于此，但我不知道如何在列表框中仅显示对象名称

Private Sub RUN_Click()

    For i = 2 To ActiveSheet.UsedRange.Rows.Count
        For j = 2 To 8
            s = Application.WorksheetFunction.CountIf(Sheet1.Range("A" & 2, "H" & i), Sheet1.Cells(i, j))
            If s = 1 And LCase(Sheet1.Cells(i, j)) = LCase(Me.TextBox1) Or s = 1 And Sheet1.Cells(i, j) = Val(Me.TextBox1) Then
                Me.ListBox1.AddItem
                For x = 1 To 8
                    Me.ListBox1.List(ListBox1.ListCount - 1, x - 1) = Sheet1.Cells(i, x)
                Next x
            End If
        Next j
    Next i

End Sub

谁能知道，如何解决这个问题？ 谢谢！！