Function HasResponses(doc As NotesDocument) As Integer
On Error Goto Errh
Dim rv As Integer
If doc Is Nothing Then Exit Function
Dim RespDc As NotesDocumentCollection
Set RespDc = Doc.Responses
If Not RespDc Is Nothing Then rv = (RespDc.Count > 0)
HasResponses = rv
Exit Function
errh:
'YOUR ERRORHANDLER
Exit Function
End Function