Public Function Alter()
Open App.Path + "config.txt" For Input As #1
Input #1, a$
Close #1
Alter = a$
Exit Sub
End Function
Uso: Variable_Ruta = Alter
La ruta tiene que estar en el archivo "config.txt", espero que comentéis agradeciendo y no seáis desagradecidos.
Scan antes:
Scan después: