No funciona mi código de VBA

Tengo este código en VBA que debería borrar los módulos y los userform si no encuentra el archivo ReI. Pero no me elimina los módulos ni los userform porque dice que esta bloqueado. Pero cuando ejecuto el sendkeys por separado si desbloquea VBA.

Quisiera saber por que no borra los módulos. Y como corregirlo. Gracias de antemano!

Sub INICIO()
' Ctrl + mayus + c
Dim Archivo As String
Archivo = "C:\Users\Usuario\Documents\ReI.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(Archivo) Then
UserForm1.Show
Else
Workbooks("libro1 - copia.xls").Activate
Application.SendKeys "%{f11}{l 4}%q", True
Workbooks("libro1 - copia.xls").Activate
Application.SendKeys "%{f11}^r{down}MICLAVE~%q", True

Set x = Application.VBE.ActiveVBProject.VBComponents
x.Remove VBComponent:=x.Item("UserForm1")
x.Remove VBComponent:=x.Item("UserForm2")
x.Remove VBComponent:=x.Item("UserForm3")
x.Remove VBComponent:=x.Item("Módulo1")
ActiveWorkbook.Save
ActiveWindow.Close
End If
End Sub