on error resume next
                                 
                                 If MSDetect = "true" Then
                                     For i = 6 to 9
                                         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