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