vba autocad

[psalm23]

Hola bakunos aqui pidiendo su ayuda, estoy iniciando a programar en autocad con vba pero mi duda es como guardo una macro en el dibujo, porque tengo un codigo para que el dibujo se abra con una clave pero no logro que funcione

quisiera saber en este caso al abrir el archivo se me ejecute la macro y pida la clave para poder ver el archivo

ojala me puedan ayudar

saludos

Private Sub auto_open()
Application.Visible = False

Dim a As Date
Dim resp As String
Dim r As String

r = "ana"
fecha = Date

a = "11/ 09 / 2011"
a = CDate(a)


If fecha = a Or fecha > a Then
resp = InputBox("Ha agotado el número de veces que puede abrir el archivo" + Chr(10) + Chr(10) + Chr(10) + "Ingrese la clave correspondiente", "Password requested")
If resp = r Then
Application.Visible = True
Else: MsgBox "clave incorrecta"
End If
Else: Application.Visible = True
End If
End Sub