Try;

Dim MyTextBox As OLEObject



--
Regards
Dave Hawley
www.ozgrid.com
"James" wrote in message
...
Hello, Can I do something like this.....?
...........
Dim MyTextBox as Textbox
TxtBoxNum = 3
Set MyTextBox = SetTheTextBoxFunc(TxtBoxNum)
...........
Public Function SetTheTextBoxFunc(num as integer) as Textbox
select case num
case 1
SetTheTextBoxFunc = SLNX.Textbox1
case 2
SetTheTextBoxFunc = SLNX.Textbox2
case 3
SetTheTextBoxFunc = SLNX.Textbox3
end select
end function
..............
SLNX is a form with a bunch of textboxes. Thanks for any help. Cant
quite
figure this out.