Dim nFile As String
Dim inpt As String

nFile = "C:\WINDOWS\Desktop\nfile.txt"

'Scrivi:
Open nFile For Output As #1
Print #1, "ciao"
Close #1

'Leggi:
Open nFile For Input As #1
inpt = Input(FileLen(nFile), 1)
Close #1

MsgBox inpt