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

[erbuson]

Hola, como poderse hacer se puede, ya que puedes hacer con un If/Then o un Select Case, sin embargo ten en cuenta que no solo es esto ya que la la instruccion Input la utilizas con un archivo abierto For Input y la Write la utilizas con uno abierto en modo Output o Append por lo que no se si va a resultar mas dificil de leer el código.

Saludos