Sergio,


   dim a as string

   a=text1.text 
   a=left(a,Instr(a, " ")-1)



If I understood your problem correctly..



Kiziltan Yuceil, MSc, Env.Eng.
Internet Software Developer
http://www.netbul.com