Excel VBA UDF

[Young_Money]

I am trying to make a UDF that prints the text next to the column that is entered.
Here is an example of what my excel sheet looks like
A / B / C
Customer Initials Location
blahblah JJ Virginia
blah GL Texas
hello LO California
ohai FE Georgia
lalala SL New York
adsf JL Washington

I want to be able to type in the initials and get the location returned.
For example, if i type in =getlocation(SL) into any cell, it would return New York
You cannot really see what the sheet looks like here, but it is supposed to be three different columns.
Can anybody help me out with how to do this please?

 

[RSXchin]

Here it is, and I'll tell you what was wrong with it

Function Custom_Lookup(ByVal Client_Initials As String) As String
    Dim r'   DON'T dim this as a string (or as anything for that matter)
    For Each r In Range("B:B")
         If r = Client_Initials Then 'you initially wrote "r.string = r"  You never referenced the input
             Custom_Lookup = r.Offset(0, 1) 'don't write ".value" or it messes it up for some reason
             Exit Function
         End If
    Next   '  Don't forget your Next line
     'Here, you had an unneeded "Else"
    Custom_Lookup = "Not Found"
     'Here, you had an unneeded "End If"
End Function

One more thing. When you use this as the formula, don't forget to use quotes.

=Custom_Lookup("JJ")

 

[Young_Money]

Thank you so much for your help rsxchin!