[vbcode]
Private Sub AskAQuestion(Me As Question, Others As Answer)
MsgBox "Answer: " & Others
End Sub
Private Sub HelpOthers()
If Answer = Known Then
Give Answer
Else
MakeUpAnswerAndLookSmart
End If
End Sub
[/vbcode]
[vbcode]
Private Sub Teddo_WakeUp()
If HelpOther = Possible Then
HelpOthers
Else
AskAQuestion
End If
End Sub
[/vbcode]