1: Module Module1
2: Sub Main()
3: Dim dtAwal, dtAkhir As DateTime
4: Dim tsDiff As TimeSpan
5:
6: Dim strDiffTime, strConcat, strMessage As String
7: Dim sbConcat As New System.Text.StringBuilder
8:
9: dtAwal = Now
10: For i As Integer = 1 To 10000
11: strConcat &= i.ToString
12: Next
13: dtAkhir = Now
14: tsDiff = dtAkhir.Subtract(dtAwal)
15: strDiffTime = tsDiff.TotalMilliseconds
16:
17: strMessage = String.Format("String Time is : {0} ms.", _
18: strDiffTime)
19: MsgBox(strMessage)
20:
21: dtAwal = Now
22: For i As Integer = 1 To 10000
23: sbConcat.Append(i.ToString)
24: Next
25: dtAkhir = Now
26: tsDiff = dtAkhir.Subtract(dtAwal)
27: strDiffTime = tsDiff.TotalMilliseconds
28:
29: strMessage = String.Format( _
30: "StringBuilder Time is : {0} ms.", strDiffTime)
31: MsgBox(strMessage)
32: End Sub
33: End Module