Dim strDati as string, iFile as integer

iFile = FreeFile
open nomefile for input as #iFile
strDati = Input$(Lof(1), #iFile)
close #iFile

in strDati hai l'intero contenuto del file, e lo lavori in locale.