SoloCodigo

podrias leer linea a linea y luego trabajar con cada caracter de la linea siempre que no sea espacio.

dim linea as string,num as integer
Open "c:\texto.txt" For Input Access Read As #1
While EOF(1) = False
            Line Input #2, Linea
            for i=1 to len(linea)
                 if mid(linea,i,1)<>" "
                    num=CInt(mid(linea,i,1))
                    'realizar operaciones necesarias con numero
                 end if
            next i
Wend
Close #2

hasi recorrerias cada caracter del .txt y harias las operaciones necesarias solo con los numeros

haber si te sirve de ayuda

hamaika ikusteko jaioak gara