Tarea muy sencilla si las hay. primero tenés que lograr abrir el archivo de texto.
Dim Renglon as string Dim NumArch as integer
Numarch = free file
Open RutaNombreArchivo for Input as #NumArch Do While Not EOF(NroArch) Line Input #NroArch, Renglon ´Acá ya obtenés el renglón del texto ´y tendrías que hacer una subfuncion ´instr buscando los espacios vacíos ´fijándote las palabras una por una. Loop Close RutaNombreArchivo