Option Explicit
Option Base 1
Public Function CLOOKUP(Lookup_value As Variant, _
                        Table_array As Range, _
                        Col_index_num As Long, _
                        Optional vIfError As Variant) As Variant

    Dim sAssembly As String
    Dim rFound As Range
    Dim i As Long

    If TypeName(Lookup_value) = “Range” Then
        sAssembly = Lookup_value.Value2
    Else
        sAssembly = Lookup_value
    End If

    Dim vErrReturn As Variant
    Dim c1 As Range
    Dim c2 As Range
    Dim c3 As Range
    Dim nrows As Integer
    Set c1 = Table_array.Columns(1)
    nrows = c1.Rows.Count

    Dim vArr1() As Variant
    ReDim vArr1(1 To nrows, 1 To 2) As Variant

    Dim jFirstRow As Long
    Dim jnextrow As Long
    Dim jLastRow As Long
    Dim jCurrent As Integer

    ‘ set  not found error
   If IsMissing(vIfError) Then
        vErrReturn = CVErr(xlErrNA)
    Else
        vErrReturn = vIfError
    End If

    On Error GoTo NoMatch

    ‘find the first occurrence (unsorted Match)
   jFirstRow = Application.WorksheetFunction.Match(Lookup_value, c1, 0)
    vArr1(1, 1) = Table_array.Cells(jFirstRow, Col_index_num).Value
    vArr1(1, 2) = 1
    jCurrent = jFirstRow
   
    ‘ find rest of occurrences, no sorting needed?
   Dim X As Integer
    X = 2
    On Error Resume Next
    Do While jCurrent  0
        Set c2 = Range(c1.Cells(jCurrent + 1, 1), c1.Cells(nrows, 1))
        Set c3 = Range(c1.Cells(jCurrent + 1, 1), c1.Cells(nrows, 1).Offset(0, 1))
        jnextrow = 0
        jnextrow = Application.WorksheetFunction.Match(Lookup_value, c2, 0)
        If jnextrow = 0 Then jCurrent = 0
        jCurrent = jnextrow + jCurrent
        If jCurrent  0 Then vArr1(X, 1) = c3.Cells(jnextrow, Col_index_num).Value
        If jCurrent  0 Then vArr1(X, 2) = X
        X = X + 1
    Loop
   
    For i = X – 1 To 10
        vArr1(i, 1) = vErrReturn
        vArr1(i, 2) = i
    Next i
   
Finish:
    CLOOKUP = vArr1

    Exit Function
NoMatch:
    For i = 1 To 10
        vArr1(i, 1) = vErrReturn
        vArr1(i, 2) = vErrReturn
    Next i
    GoTo Finish

End Function

On Error GoTo NoMatch
:
Finish:
    CLOOKUPS = vArr1
    Exit Function
NoMatch:
    vArr1 = vErrReturn
    GoTo Finish
End Function

On Error GoTo NoMatch
:
NoMatch:
    CLOOKUPS = IIf(Err.Number = 0, vArr1, vErrReturn)
End Function