A funny story - READ IT!!!!!!

[Stevie-O]

Dim Y As SexObject

Set Y = New Girlfriend
Y.Measurements = "36-24-36"
Y.Libido = vbHornyAsHell
Call Y.AtHome()
Y.Move vbIntoMyApartment

Y.Remove Key:="Clothes"
Y.HaveSex vbOnBed, vbMissionary
Y.HaveSex vbInCar, vbMissionary
Y.HaveSex vbStrangePlaces.vbAttic, vbAnal
Y.HaveSex vbStrangeSituations.vbWhileDriving, vbOral