Hi everyone
That was wonderful response in such a short time.
I am now exploring rather using a range but I am going to try this caller thing first.
Here is my code:

Function linelookup(find_val As String, c1 As String, c2 As String, cur_row As Long) As String
myrange = c1 & cur_row
startcol = Sheets(1).Range(myrange).Column
myrange = c2 & 1
endcol = Sheets(1).Range(myrange).Column
For i = startcol To endcol
  If Sheets(1).Cells(cur_row, i).Value = find_val Then
     linelookup = Sheets(1).Cells(cur_row, (i + 1)).Value
     i = endcol
  End If
Next i