There is a problem in this idea,
look at the routine definition it will be:
Sub store(var as Object)
....
End Sub
But when you try to get the var name from inside the routine you won't get the sent variable (MyVariable) name, you will get the name of the variable defined in the rotine: var...