Sustituir Write/Input

[Angeli]

Hola a todos.
Revisando mi código, en el que guardo las variables en archivos de texto, me he dado cuenta que los procedimientos de guardar y recuperar los datos, son repetitivos; solo cambia la instrucción Write por Input.
NO se si se podrá hacer, pero me pregunto si estas instrucciones se pueden asignar a una variable, para que según su valor escriban o lean el archivo.
Ejemplo:
Write #nArchi, strMidato
Input #nArchi, strMidato
Dim Acción
Acción = Write / Acción = Input
Acción #narchi, strMidato
Gracias, pues es una duda que me surge