Dim mUIV Set mUIV = CreateObject("UIVOpenAddonDLL.clsUIV_X") Dim acount Dim bigString Dim crlf Dim myObjects Dim total crlf = chr(10)+chr(13) total = mUIV.getObjects(myObjects) bigString="Total Objects: " & total & crlf & crlf For acount = 0 To UBound(myObjects) bigString = bigString + (myObjects(acount)) + crlf Next msgbox bigString