RosettaCodeData/Task/String-append/VBA/string-append.vba

Function StringAppend()
Dim s As String
s = "foo"
s = s & "bar"
Debug.Print s
End Function