Sub Append_to_string()
Dim A As String
    A = "Hello worl"
    Debug.Print A & Chr(100)        'return : Hello world
End Sub