Sub Join2(a As Object,b As String)
Dim sb As StringBuilder
sb.Initialize
For i=1 To 9
sb.Append(a).Append(i)
Next
Log("a:" & sb.ToString) 'a:818283848586878889
sb.Initialize
For i=1 To 9
sb.Append(b).Append(i)
Next
Log("b:" & sb.ToString) 'b:123456789
End Sub
Private Sub Button1_Click
Join2(Chr(8),Chr(8))
End Sub