Problem Evaluate Variables

[bacter]

sub Test()

dim Variable1 as String
dim Variable2 as String

range("a1").value="Variable1"

Variable1="Hello Word"
Variable2=Evaluate(range("a1").value)

msgbox Variable2 

end if

Evaluate dont work.

in cell a1 I have the text variable1


I want variable2 to be assigned the value of the variable written in a1


I have tried various ways and have not succeeded, any ideas?