I am trying to do the same thing. When using your example, I get an error from the Variant to Data function. For the type constant, I tried browsing to all kinds of MS textbox objects (from 2 excel versions, 2 office objects versions, forms, textframe2.textrange.text, anything I could find. I am not familiar with VB. The properties Type and Name both return values identifying the only textbox in the worksheet.
The pictured type constant (feeding the variant to data function) is from either
Microsoft Excel 11.0 Object Library Version 1.5
Microsoft Excel 5.0 Object Library Version 1.0
Any help would be appreciated.