getting values of variable names defined within an array

Good Morning to all! Please go through the code. myarr is defined by two variable names var1 and var2. the values of var1, var2 are "value1" , "value2" respectively. when i try to print the values of these variables using loop it is giving blank. please try to help on this.
Sub test()
myarr = Array(var1, var2) 'Variables defined in an array
var1 = "value1" 'Assigned values variable
var2 = "value2" 'Assigned values variable
For Each Val1 In myarr
debug.print Val1 'print value of variable
Next
End Sub