Visual Basic - Hasta el punto (.)

Tengo un textbox en el cual se ingresan valores con decimales (947.874545) , (10012.64578), etc, por ejemplo. Pero necesito que al precionar un boton se copie lo que esta hasta el punto en otro text, osea que el primer valor quedaria 947 y el segundo 10012. ¿De que manera puedo hacer esto?

Mira en la ayuda las funciones Int y Fix

Con Instr(Text1,".") se averigua donde está el punto, y con mid(text1,1,n) se corta la cadena o sea

Text2=mid(text1,1,instr(text1,".")-1)
Text3=mid(text1,instr(text1,".")+1,len(text1)-instr(text1,"."))

Más Facil:
pos=InStr(Text1.text,".")'averiguas el punto
Text3.text=Left(Text1.Text,pos)

o

Text3.text=Left(Text1.Text,InStr(Text1.text,"."))

Tambien puedes buscar ayuda de la funcion SPLIT.

Señores, enterénse antes de contestar.

dice:
"se ingresan valores con decimales "

con lo cual es un número y no una cadena como indican ustedes, el del pacino aun siendo cadena no funciona ya que al final deja el punto y el del otro con la función SPLIT...

el único que se aproxima a la relidad es el ivan con la función Fix

Text2.Text = Fix(Val(Text1))