My Life in .NET

 Dim yYears As Byte
 Dim yDays As Byte
 Dim yHours As Byte
 Dim oGaryZ As New PersonLivingInMemphell
 Dim oPaper As CommercialAppealNewsPaper
 Dim oWork As Employment

 For yYears = 1 To 75
    For yDays = 1 To 365
       With oGaryZ
         .WakeUp
         oPaper = New CommercialAppealNewsPaper
         With oPaper
            oGaryZ.Read .GangViolenceInMemphis
            oGaryZ.Read .RacialTension
            oGaryZ.Read .GrizzliesLose
            oGaryZ.Read .PublicSchoolsSuck
            oGaryZ.Read .DirtyPoliticians
         End With

         .GoToWork

         For yHours = 1 To 8
            oWork = New Employment
            With oWork

              oGaryZ.Work .BangCode
              oGaryZ.Work .DrinkCoffee
              oGaryZ.Work .ChatAboutSports
              oGaryZ.Work .BangCode
            End With
         Next yHours

         .LeaveWork
         Call functionRandom(action := .DoStuff, hours := 4)
         .GoToBed

       End With
    Next yDays
 Next yYears

 'Cleanup code
 oGaryZ.Die
 oGaryZ.Bury
 oGaryZ.Dispose