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