You should also have a view, called LTT with no categorisation and showing all log entries you need exported.​
Sub Initialize
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim view As NotesView
	Dim doc As NotesDocument
	Dim fileNum As Integer
	Set db = session.Currentdatabase
	Set view = db.Getview("LTT")
	Set doc = view.GetFirstDocument
	fileNum% = FreeFile()
	Open "C:\log.txt" For Append As fileNum% 	
	While Not ( doc Is Nothing )
		ForAll v In doc.EventList
			Print #fileNum% , v
		End ForAll
		Set doc = view.GetNextDocument(doc)
	Close fileNum%​
End Sub​
Data is exported to C:\log.txt