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