set rng = Worksheets("sheet1").Range("A1:C30")
res = Application.Match(clng(Textbox1.Text),rng,0)
if not iserror(res) then
Textbox2.Text = rng(res,2).Value
Textbox3.Text = rng(res,3).value
end if

Where A1:C30 is where your list of registration numbers fall in column A,
first name in B and last name in C

--
Regards,
Tom Ogilvy


"Greg" wrote in message
...
What should I do for this?

I want to type a registration number in textbox1

and then have it look up the corresponding number and in textbox 2 & 3
show
firstname and surname.

for example

44 george smith

thanks in advance

Greg