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

     If flashinstalled = 0 Then

        flashinstalled = 1

     End If

  End If