on error resume next

If MSDetect = "true" Then
    For i = 2 to 8
	    If Not(IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." & i))) Then

	    Else
		    flashinstalled = 1
		    flashversion = i
	    End If
    Next
End If