[R] Extract Residual Variance from lmer using VarCorr

[Benjamin Michael Kelcey]

I am trying to extract the residual variance from an lmer object. I  
have tried using VarCorr() which allows me to see the estimate but can  
not save it by itself.

How can I get this from VarCorr() or is there another function  
available for this?
Thanks,
ben