Function VBgetAcrobat()
  on error resume next
  var AcroCheck
  VBgetAcrobat = 0

  AcroCheck = ( IsObject(CreateObject("AcroPDF.PDF.1") ) ) 
  if AcroCheck = True then
      VBgetAcrobat = 7
  end if

  if VBgetAcrobat = 0 then
  for version = 6 to 1 step -1
    AcroCheck = (IsObject(CreateObject("PDF.PdfCtrl." & version)))
      if AcroCheck = True then
        VBgetAcrobat = version
        exit for         
      end if
  next
  end if
  
    
End Function