Quines

[alkatran]

What's the shortest quine you've written in VB6? A quine is a program that prints itself (without reading the file its stored in). They're generally easier to write in C because it's not quite as wordy.

Mine, which isn't particulary good at 187 characters, goes:

Sub main(): s = "Sub main(): s = "";"": Debug.Print Replace(s, Chr(59), Replace(s, Chr(34), """""""""""")): End Sub": Debug.Print Replace(s, Chr(59), Replace(s, Chr(34), """""")): End Sub