Quando apri il file specifica la clausola Lock Write:
codice:
Open "nomefile" For Input Lock Write As #1