Public Function VLOOKUP2(table As Range, SearchColumnNum As Integer, SearchValue As Variant, _
                                        N As Integer, ResultColumnNum As Integer)
    Dim i As Integer
    Dim iCount As Integer
          
    For i = 1 To table.Rows.Count
            If table.Cells(i, SearchColumnNum) = SearchValue Then
                iCount = iCount + 1
            End If
            If iCount = N Then
                VLOOKUP2 = table.Cells(i, ResultColumnNum)
                Exit For
            End If
        Next i
End Function


Public Function VLOOKUP3(table As Range, SearchColumnNum As Integer, SearchValue As Variant, _
                                         ResultColumnNum As Integer)
        Dim x As Integer
        Dim i As Integer
        Dim qwe As Variant
        x = Application.WorksheetFunction.CountIf(table, SearchValue)
        qwe = ""
        If x = 0 Then
            VLOOKUP3 = ""
            Exit Function
        End If
        
        For i = 1 To x
         qwe = qwe & i & ")" & VLOOKUP2(table, SearchColumnNum, SearchValue, i, ResultColumnNum) & "   "
        Next i
        
        VLOOKUP3 = qwe
            
End Function