Function checkFlashVB()

on error resume next

Dim flashversionVB

flashversionVB = 1

For nbrVBcount = 2 to 9
	If Not(IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." & nbrVBcount))) Then
		'Do Nothing
	Else
		flashversionVB = nbrVBcount
	End If
Next

'msgbox(flashversionVB)

checkFlashVB = flashversionVB

End Function