RosettaCodeData/Task/Copy-a-string/VBA/copy-a-string.vba

Sub copystring()
    a = "Hello World!"
    b = a
    a = "I'm gone"
    Debug.Print b
    Debug.Print a
End Sub