Public Function vlookupx(lookup_value As Variant, table_array As Range, col_index_num As Integer, range_lookup As Boolean, occurrences As Integer) As Variant
 
    'Declare variables
    Dim i, count As Integer
    Dim ivalue As Variant
 
    On Error Resume Next
 
    'Protect against erroneous inputs
    If col_index_num > table_array.Columns.count Then
        vlookupx = CVErr(xlErrRef)
        Exit Function
    End If
    If occurrences < 1 Then
        vlookupx = CVErr(xlErrNA)
        Exit Function
    End If
    If range_lookup = True And lookup_value < table_array.Cells(1, 1).value Then
        vlookupx = CVErr(xlErrNA)
        Exit Function
    End If
 
    'If range_lookup = true then assume first column is sorted ascending
    'Finds largest value that is smaller than lookup_value if lookup_value not found
    If range_lookup = True Then
        count = 0
        For i = 1 To table_array.Rows.count
            ivalue = table_array.Cells(i, 1).value
            If ivalue > lookup_value Then
                vlookupx = table_array.Cells(i - 1, col_index_num).value
                Exit Function
            ElseIf ivalue = lookup_value Then
                count = count + 1
                If count = occurrences Then
                    vlookupx = table_array.Cells(i, col_index_num).value
                    Exit Function
                End If
            End If
        Next i
        vlookupx = table_array.Cells(table_array.Rows.count, col_index_num).value
        Exit Function
 
    'If range_lookup = false then look for exact matches
    Else
        count = 0
        For i = 1 To table_array.Rows.count
            ivalue = table_array.Cells(i, 1).value
            If ivalue = lookup_value Then
                count = count + 1
                If count = occurrences Then
                    vlookupx = table_array.Cells(i, col_index_num).value
                    Exit Function
                End If
            End If
        Next i
        vlookupx = CVErr(xlErrNA)
        Exit Function
    End If
    vlookupx = CVErr(xlErrNA)
 
End Function