Hi, try this
if variant manager is open you can use the code below , otherwise you have to open the variant manager by script
Set DXDApp = GetObject(, "viewdraw.Application")
Set VMaddin = DXDApp.AddIns("Variant Manager")
Set vmdoc = VMaddin.Control.VariantGuiApplication.VMDocument
Set vmvar = vmdoc.Variants
Debug.Print vmvar.Count