Statement, Dim empty, is commented out, because "empty" is a reserved keyword. It can not be used as a variable name.
Statement, author = "Herong", assigns value "Herong" to variable "author".
Statement, price = author, assigns the value from variable "author" to variable "price".
Not that the subtype of the new value does not match the subtype of the new value.