これすごいね。びっくり。
Dim s As String
Dim sb As New System.Text.StringBuilder
Dim i As Integer
Trace.WriteLine(Format(Now, "HH:mm:ss"))
For i = 0 To 102400
s = s & "a"
Next
Trace.WriteLine(Format(Now, "HH:mm:ss"))
For i = 0 To 102400
sb.Append("a")
Next
Trace.WriteLine(Format(Now, "HH:mm:ss"))