Programming Nihilism
- Code: Select all
Dim Everything as Object
If Everything Is Nothing Then
MsgBox "This is a paradox of the universe."
End If
Sub and Function Names
Sub MachineGun ()
Sub Stitute ()
Sub Marine ()
Sub Human ()
Function Ality ()
Declaration Statements
Dim Lotus(1 To 3)
Dim Wit, TheLights
Public Exposure
Dim Julian As Boolean, King As String, Kong As Long
Dim BaseballCards As New Collection
Dim Mouthful as Byte
Dim Dewey As Decimal
Dim DatingService As Single
Public Nudity As Graphic
Dim Trouble As Double
Static Cling, Electricity
Dim Rope as String
Dim Bones, Bones, DryBones
ReDim HisRights
VBA Statements
On Error GoTo Hell
If IsMissing(InAction) Then GoTo MilkCarton
If IsNull(Warranty) And Void Then BuyaNew1
Cocktail = Abs(Vodka)
SendKeys "Because I'm locked out"
Synergy = Whole > Application.Sum(ItsParts)
Brightness = Array("of", "light")
Yield = Right(OfWay, 2)
Perfect10 = DateValue(Tiffany)
If(IsEmpty(Head)) Then GoTo School
WoodenHouse = Log(Cabin)
Kill("SomeTime")Heart = Val(Entine)
RaiseEvent Hell
Brittney = Space(Cadet)
Seek(AndYeShallFind)
Lonely = Left(Out, 1)
OnWithThe.ShowDeadActor = Dir("WoodKirby")
Call MeACab(Hansom)
Application.Run "Away"
GoodIdea.Copy
Wallpaper.Paste
Range("HomeOnThe").Activate
Lubricant = Shell("\Oil")
Mismatch = Round(Sqr(Peg), 0)
Actor = Val(Kilmer)
Map = Rand(McNally)
GoTo Jail
Do Walk Backwards
Loop Until Christmas
SendKeys "Because I'm locked out" 
