Public blogEntry as Worksheet

'Can you guess what language this is?

'I gave you a huge hint already...

Public Sub myWork

 Dim payCheck as Single, workHours as Long, projectComplete as Boolean

 Dim startHours as Single, endHours as Variable

 Dim sneakyMode as Boolean, stareAtScreen as Boolean, goHome as Boolean

 Dim newEmotion as String

 startHours = 800

  If projectComplete = False Then

  endHours = 1900

  payCheck = Null

   newEmotion = "Indifference"

  Else

   endHours = 1855

 End if

 For i = startHours to EndHours

  If startHours + 30 > i

   stareAtScreen = True

  End If

  If bored or frustrated Then

   If bossLooking = False Then

    timeLimit = 30 + x

    Call StartBlogging

   Else

    Application.ScreenUpdating = False

    sneakyMode = True

    timeLimit = 10

    Call StartBlogging

   End If

   Dim guilt as integer

   guilt = workHours/timeLimit

  End If

  If guilt > 9 Then

   Exit Sub

  End If

  stareAtScreen = False

 Next i

workProcess:

 Call workDetails

 If endHours + 60 > now

  goHome = False

  Goto workProcess

 Else

  goHome = True

  newEmotion = "Joy"

 End If

End Sub