Function fsVlookup(ByVal pSearch As Range, ByVal pMatrix As Range, ByVal pMatColNum As Integer) As String
    Dim s As String
    fsVlookup = Application.WorksheetFunction.VLookup(pSearch, pMatrix, pMatColNum, False)
End Function

Function LValllue(index_num As Single, Value1 As Variant, Value2 As Variant) As String
Dim LValue As String
LValllue = Application.WorksheetFunction.Choose(index_num, Value1, Value2)
End Function

Function VlookupUDF(lookup_value, table_array As Range)
    Dim row_index
    row_index = Application.Match(lookup_value, table_array.Areas(1), 0)
    If Not IsError(row_index) Then
       VlookupUDF = table_array.Areas(2).Cells(row_index)
    Else
       VlookupUDF = ""
    End If
End Function