Sub Initialize
	Dim s As New NotesSession	
	Dim doc As NotesDocument, item As NotesRichTextItem
	Dim text As String, bigString As String
	Dim eval As Variant
	Dim i As Long, max As Long
	Dim start As Single
	start = Timer()
	
	max = 100000
	text = "test"
	
	Set doc = s.CurrentDatabase.CreateDocument
	Set item = doc.CreateRichTextItem( "body" )
	For i = 0 To max
		Call item.AppendText( text )
	Next
	bigString = item.GetUnformattedText()
	
	Print "AppendText: " + Cstr( Round( Timer() - start, 2 ) ) + " (" + Cstr( Len( bigString) ) + ")"
	
	bigString = ""
	
	start = Timer	
	
	For i = 0 To max
		bigString = bigString + text
	Next
	Print "Concatenation: " + Cstr( Round( Timer() - start, 2 ) ) + " (" + Cstr( Len( bigString) ) + ")"	
End Sub