ほとんどクラスの中に入れちゃうとか。マゾいけど。

Class appclass
Public x
Public Sub main
WScript.echo x
End Sub
End Class

Dim a
Set a = New appclass
a.x = "hi"
a.main