Недостающие quines: Visual Basic (для приложений)

Сегодня я просмотрел несколько случайных статей о компьютерных фанатах в Википедии, чтобы получить ежедневную дозу бесполезных знаний. Я наткнулся на quines - программы, печатающие собственный исходный код. Я обнаружил, что это отличный способ заставить мой мозг болеть, поэтому я начал работать над quine в VBA. У меня были две веские причины:

1. Я не смог найти quine, написанный на VBA
2. VBA побуждает писать неудобный код, от которого у вас болит мозг

Вот мой шедевр:

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

Моя задача: Можете ли вы сделать его еще короче (и желательно более неудобным)?