strfind使用拆分数组

Question

对于我的项目，我试图从Listbox中提取数据。 列表框中的数据类似于＆＃34; 1 x bolt＆＃34;，我试图获得＆＃34; bolt＆＃34;部分来自这句话。然后检查这个单词来自Excel表格的哪一行（名为＆＃34; Bom＆＃34;）。如果找到，则找到相同的行但不是列F转到列G并将该文本插入我的不同Listbox2。

到目前为止，它告诉我strsearch不能使用数组。

我的代码

With ONDS1

    Dim PartID              As String
    Dim rSearch             As Range  'range to search
    Dim c                   As Range
    Dim i                   As Long

    With Sheets("Bom")
        Set rSearch = .Range("f1", .Range("F1000").End(xlUp))
    End With

    For i = 0 To Me.ListBox_stuklijst.ListCount - 1
        strfind = Split(Me.ListBox_stuklijst(i), , 3)
        strfind(2) = rSearch

        Set c = rSearch.Find(strfind, LookIn:=xlValues, lookat:=xlWhole)
        If Not c Is Nothing Then
            MsgBox "working"
        End If
    Next i
End With