Function myLOOKUP(lookup_value As String, table_array As Range, column_index As Long) As Variant
    myLOOKUP = ""
    Dim rr As Range
    Set rr = Intersect(table_array, table_array.Parent.UsedRange).Columns(1)
    
    Dim arr As Variant
    arr = rr.Value
    
    Dim ll As Long
    ll = Len(lookup_value)
    Dim ya As Long
    For ya = 1 To UBound(arr, 1)
        If Left(arr(ya, 1), ll) = lookup_value Then
            myLOOKUP = rr.Cells(ya, column_index).Value
            Exit Function
        End If
    Next
End Function