function CheckFlash() 
	on error resume next
	For flashVersion = 0 To 6
		flashCheckString = "ShockwaveFlash.ShockwaveFlash." & flashVersion
		If NOT (IsObject(CreateObject(flashCheckString))) Then
			break
		End If
	Next 
	
	flashVersion = flashVersion - 1
	checkFlash = flashVersion
end function