Sub GetAdobe()
 
 'Acrobat Reader v. 3 and 4
 'PDF.PdfCtrl.1
 
 'Acrobat Reader v. 5
 'PDF.PdfCtrl.5
 
 'Acrobat Reader v.6
 'PDF.PdfCtrl.6
 
 'Acrobat Reader v. 7
 'acroPDF.PDF
 
 on error resume next
 
  Acro1 = Not IsNull(CreateObject("PDF.PdfCtrl.1"))
  
  Acro2 = Not IsNull(CreateObject("PDF.PdfCtrl.5"))
 
  Acro3 = Not IsNull(CreateObject("PDF.PdfCtrl.6"))
 
  Acro4 = Not IsNull(CreateObject("acroPDF.PDF"))
 
 If Not Acro1 Then
	If Not Acro2 Then
		If Not Acro3 Then
			If not Acro4 then 
 
  					msgAns = msgBox ("You must have Adobe Acrobat installed to view this file!", 0, "Information")
  
  				'If msgAns = 6 Then
   
   					'window.navigate "http://www.adobe.com/products/acrobatpro/tryout.html"
  
  				'Else msgAns = 7
 
   					'exit sub
 
  				'End If
			End If
		End If
 	End If 
 End If
 
End Sub