Function ieAcroDetect
	On Error Resume Next
        Set obj = CreateObject("AcroPDF.PDF.1")
	If IsObject(obj) Then
		version = 7
	Else
	  Set obj = CreateObject("PDF.PdfCtrl.5")
	  If IsObject(obj) Then
	        version = 5
	  Else
		Set obj = CreateObject("PDF.PdfCtrl.1")
		If IsObject(obj) Then
			version = 4
		Else
			version = 0
		End If
	  End If
        End If
	ieAcroDetect = version
End Function