Sustituir Write/Input

[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