Las quines desaparecidas: Visual Basic (para Aplicaciones)

Question

Hoy hojeé algunos artículos al azar sobre geek en Wikipedia para obtener mi dosis diaria de conocimiento inútil. Me encontré con quines, que son programas que imprimen su propio código fuente. Descubrí que era una gran manera de hacer que me doliera el cerebro, así que comencé a trabajar en un quine en VBA. Tenía dos buenas razones:

1. no pude encontrar un quine escrito en VBA
2. VBA le anima a escribir código incómoda que hace que su cerebro herido

Aquí es mi obra maestra:

Sub q() 
c = "Sub q();c = #;Debug.Print Replace(Replace(c, Chr(59), vbNewLine), Chr(35), Chr(34) & c & Chr(34));End Sub" 
Debug.Print Replace(Replace(c, Chr(59), vbNewLine), Chr(35), Chr(34) & c & Chr(34)) 
End Sub 

Mi desafío: ¿Puede hacerlo aún más corto (y preferiblemente más incómodo)?

Answer 1

No sé si alguien lee esto anomore hilo, pero aquí hay una aún más corta, en base a la quine de das_weezul. Es independiente de "Option Explicit" (a diferencia de das_weezul) y es independiente de la aplicación de Office en la que está trabajando (es decir, Excel, Access, Word, etc.), a diferencia de la de Alex K. Utilizarlo en la ventana inmediata (Ctrl + G):

c="c=#:?replace(c,chr(35),chr(34) &c &chr(34))":?replace(c,chr(35),chr(34) &c &chr(34)) 

Answer 2

¿Qué tal

Sub q() '//in mdl1 
Debug.Print Workbooks(1).VBProject.VBComponents(5).CodeModule.Lines(1, 3) 
End Sub