For those of you who missed it here's the logic for answering questions in the other forums ( yes they do exist ) :

Code:
Private Type PostType
    SimpleQuestion As Boolean
    FoundItFirst As Boolean
    MessID As Long
End Type
    
Public Bored As Boolean
Public FallAsleep As Boolean
    
Private Sub AnswerPosts(IAmInABadMood As Boolean, IAmAnArseHole As Boolean)
' August 2001, Paul Warren

Dim Post As PostType

Call SearchForNewPost(Post)

With Post

    Do
        If .SimpleQuestion Then
            ' Let's work out if I'm a tw*t first
            If IAmInABadMood Or IAmAnArseHole Then
                ' This bit will only ever be run by morons
                Call AbusePoster(.MessID, "You Are Fik")
            Else
                If .FoundItFirst Then
                    ' YES !!!
                    Call PostSolutionAndBeSmugAboutIt(.MessID)
                Else
                    ' hmmm, I'm sure there's a more obscure way of doing it
                    Call FindBarelyRelatedCodeAndPostIt(.MessID)
                End If
            End If
        Else
            ' Damn, a hard question - find another quick
            Call SearchForNextPost(Post)
        End If

    Loop Until Bored Or FallAsleep ' ZZzzzz

End With

End Sub
As you can tell I was bored when I wrote this. Thanks to honeybee for being a pendantic pain.