'Code below should be in the ThisBody module of your project.
'It can be used in the PositionChange event of the ThisBody module, but...
'remember that the BoyfriendActionChange event of the ThisGirlfriend module
'might also be triggered at the same time.

Select Case Position 
Case Vertical
 Select Case Location
  Case AtWork
    MsgBox "No problem" & vbCrLf & "Keep working"
  Case AtHome
    If Computer.MozillaFireFox.CurrentSite = _
      [url]http://www.xtremevbtalk.com[/url] Then
     MsgBox "You're a codaholic!", vbCritical
     GirlfriendWarning = Inputbox("Is you girlfriend angry about your coding again?", vbQuestion)
     If GirlfriendWarning = vbYes Then
      Call GirlfriendCritical
     End If
    End If
  End Select
Case Horizontal
 If LeftEye is Open and RightEye is Open Then
  MsgBox "You are probably doing something nice" 'possibly also check where you are
 Else
  Exit Sub
 End If
End Select

Public Sub GirlfriendCritical()
MsgBox "Shut down all machines and buy flowers for Girlfriend", vbCritical
End Sub

Brain.ScreenUpdating = False