set Vis = CreateObject("Visio.Application")
 set Doc = Vis.Documents.Open("D:\Docs\Drawing1.vsd")
 For Each shpObj In Vis.ActiveDocument.Pages("page-1").Shapes
        If shpObj.Name = "mycell2" Then msgbox shpObj.Text
 Next