creación de archivo plano

[#1]

Buen Día Comunidad, por favor requiero de su apoyo en verificar la siguiente rutina para creación de un archivo plano desde un boton. Cuando hago click sobre el botón se me abre la ventada de editor de macro, pero no logro identificar cual es la falla. Gracias a todos por su colaboración

sub prueba()

      dim objfso,archivotexto

      Set objfso = createobject("scripting.filesystemobject")

      Set archivotexto = objfso.opentextfile("C:\Users\b466905\Documents\Varios\archivo.txt",8,true)

    archivotexto.WriteLine "hola"

    archivotexto.close

end sub

Adicionalmente probe el script de forma directa y funciona correctamente

[Alejandro_Hernández · Accepted solution]

Verifica que en el editor de macro tengas la opción de "Current Local Security" en 'Allow System Access'.

[#3]

Muchas Gracias Alejandro, justamente me había percatado de ese punto revisando el manual... Mil gracias por tu pronta respuesta