RosettaCodeData/Task/Binary-strings/VBA/binary-strings-7.vba

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