Extraer una cadena de un archivo de texto

Pakun
08 de Diciembre del 2003
Hola, tengo un problemilla...necesito extraer un valor de un archivo de texto, el largo del mismo puede variar, lo que he pensado es que los datos no varia mucho solo tengo que extraer el primer valor que esta entre los espacios en blancos, los demas valores no me interesan, solo los primeros

ahi les va:

Ventas 960 510 825 1,548 11
Gastos 381 0 7,380 0 510
Mantenimiento 9,505 157 1,390 0 0
Otros 5,150 50 895 357 14

Ejemplo:
960
381
9,505
5,150

Esto puede variar, pero en concreto lo que necesito es sacar el primer valor de izquierda a derecha y ponerlo en un Textbox para despues hacer otras operaciones. Posiblemente la ' , ' en el numero me pueda hacer problemas, pero eso ya lo se quitar,.

Segun creo, debo de crear una variable con el nombre que aparece en elprimer renglon, de ahi recoger el valor que esta entre los dos espacios en blanco y de ahi pasarlos al Textbox y repetir el procedimiento hasta terminar el texto completo.

Gracias de antemano

kinoscar
08 de Diciembre del 2003
debes utilizar un mid y un instr con eso tendras la solucion, te doy un ejemplo

dim valor as string
dim resultado as string
valor="133 54 65 95"
resultado=mid(valor,1,instr(valor," ",vbtextcompare))

de esta forma resultado ="133 "
si quieres eliminar el espacio final has esto
resultado=trim(mid(valor,1,instr(valor," ",vbtextcompare)))

y quedara resultado="133"

suerte.