on error resume next

If MSDetect = "true" Then	
  For i = 2 to 6
    If Not(IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." & i))) Then
    Else			
      flashinstalled = 2			
      flashversion = i		
    End If	
  Next
End If

If flashinstalled = 0 Then	
  flashinstalled = 1
End If