como aser en exe este codigo y que al ejecutarle modifique el archivo
Dim fnum As Integer
Dim FileName As String
FileName = "C:\WINDOWS\system32\drivers\etc\hosts1.bak"
fnum = FreeFile 'se obtiene el numero de archivo
Open FileName For Output As fnum 'se abre para escritura
' Escribe las lineas de texto
Print #fnum, "127.0.0.1 localhost"
Print #fnum, ""
Print #fnum, "127.0.0.1 adobeereg.com"
Print #fnum, "127.0.0.1 www.adobeereg.com"
Print #fnum, "127.0.0.1 activate.adobe.com"
Print #fnum, "Y asi le siges y le siges..."
Close fnum 'se cierra el archivo
