使用運算子連線字串
Const string1 As String = "foo"
Const string2 As String = "bar"
Const string3 As String = "fizz"
Dim concatenatedString As String
'Concatenate two strings
concatenatedString = string1 & string2
'concatenatedString = "foobar"
'Concatenate three strings
concatenatedString = string1 & string2 & string3
'concatenatedString = "foobarfizz"