Application vlookup is not returning value correctly

[reachharry]

Hi,

I am trying to use application,vlookup to extract the related data based on the user provided code number. Even though the code number is existing in the array, it is not giving the proper result. I have given my code below, any help is much appreciated.

Function test(usercode As String) As Long
'declaring an array
Dim arr As Variant

'assigning range of values to the array
arr = Worksheets(1).Range("A1").CurrentRegion

'using a vlookup formula to take the related data of the code from the array
If IsError(Application.VLookup(usercode, arr, 2, 0)) Then
test = 0
Else
test = Application.VLookup(usercode, arr, 2, 0)
End If

End Function

[AliGW]

Administrative Note:

We would very much like to help you with your query, however you need to include code tags around your code.

Please take a moment to add the tags. Posting code between tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Please see Forum Rule #2 about code tags and adjust accordingly. Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(Note: this change is not optional. No help to be offered until this moderation request has been fulfilled.)

[Pepe Le Mokko]

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however you need to include code tags around your code.

Please take a moment to add the tags. Posting code between tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Please see Forum Rule #2 about code tags and adjust accordingly. Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(Note: this change is not optional. No help to be offered until this moderation request has been fulfilled.)

[reachharry]

Sorry for not adapting to the forum rules..now i have placed my code under the code tag

here is my query:
I am trying to use application,vlookup to extract the related data based on the user provided code number. Even though the code number is existing in the array, it is not giving the proper result. I have given my code below, any help is much appreciated.

Function test(usercode As String) As Long
'declaring an array
Dim arr As Variant

'assigning range of values to the array
arr = Worksheets(1).Range("A1").CurrentRegion

'using a vlookup formula to take the related data of the code from the array
If IsError(Application.VLookup(usercode, arr, 2, 0)) Then
test = 0
Else
test = Application.VLookup(usercode, arr, 2, 0)
End If
End Function