Secondo me il tuo problema e' che non hai chiaro il significato e il funzionamento delle singole istruzioni.

Ad esempio, sai a cosa servono le singole istruzioni e funzioni presenti nella linea

Text1.Text = Input(LOF(NumFile), NumFile)

o nella linea

sTesto = Input(10, #NumFile)

?

Se chiarisci questi punti, trovi la soluzione e impari ...