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