Get Multiple Lookup Values in a Single Cell separating with comma

I have two different excel sheets and trying to filter all the prices related to each fruit listed in sheet2.

Sheet1

Sheet2

As you can see, Orange price - 12 is not appearing in the sheet2.

Expected Result

LookupCSVResults function

Option Explicit
Function LookupCSVResults(lookupValue As Variant, lookupRange As Range, resultsRange As Range) As String

    Dim s As String 
    Dim sTmp As String  
    Dim r As Long  
    Dim c As Long   
    Const strDelimiter = "|||" 

    s = strDelimiter
    For r = 1 To lookupRange.Rows.Count
        For c = 1 To lookupRange.Columns.Count
            If lookupRange.Cells(r, c).Value = lookupValue Then
                sTmp = resultsRange.Offset(r - 1, c - 1).Cells(1, 1).Value
                If InStr(1, s, strDelimiter & sTmp & strDelimiter) = 0 Then
                    s = s & sTmp & strDelimiter
                End If
            End If
        Next
    Next

    s = Replace(s, strDelimiter, ",")
    If Left(s, 1) = "," Then s = Mid(s, 2)
    If Right(s, 1) = "," Then s = Left(s, Len(s) - 1)

    LookupCSVResults = s

End Function

Any suggestions would be appreciable.