'Declares a ChemDrawControl object and returns number of objects in the application
 Private Sub cmdShowNumberOfAtoms_Click() 
     Dim myAtom1 as ChemDrawControl10Ctl.Atom
     Dim myAtom2 as ChemDrawControl10Ctl.Atom 
    'Checks if at least two Atoms have been drawn
     If  ChemDrawControlCtl.Objects.Atoms.Count > 2 Then 
         Set MyAtom1 = ChemDrawControlCtl.Objects.Atoms.Item(1)
         Set MyAtom2 = ChemDrawControlCtl.Objects.Atoms.Item(2)
        'Returns the number of Atoms within the ChemDraw document
         Text2.text = "There are: " & format(ChemDrawControlCtl.Objects.Atoms.Count, "##") & " Atom/s" 
     End If
 End Sub