Dim agentlog As NotesLog

Sub LogLine (message As String)
    Print message
    Call agentlog.LogAction(message)
End Sub

Sub Initialize

    Dim session As New NotesSession
    Dim db As NotesDatabase
    Dim agent As NotesAgent
    Set db = session.CurrentDatabase
    Set agent = session.CurrentAgent
    Set agentlog = New NotesLog(agent.Name & " Agent in " & db.Title )
    Call agentlog.OpenAgentLog

    logline(agent.Name & " Agent starting.")
[...]
    logline(agent.Name & " Agent ending.")
    Call agentlog.Close
end sub