VBA Humor

[Item URL]

What's so funny about VBA? Well, depending on your sense of humor, maybe this...

Programming Nihilism

Dim Everything as Object

If Everything Is Nothing Then
    MsgBox "This is a paradox of the Object-Oriented 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.Show

DeadActor = 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

Thanks to the following, who contributed some of this material: Allen Browne, Frank Isaacs, Bill Manville, J.E. McGimpsey, Bob Umlas.