Private i, ObjAct

On Error Resume Next

vbFlashInstalled = False
vbFlashVersion = False

For i = 10 To 1 Step -1
   Set ObjAct = CreateObject("ShockwaveFlash.ShockwaveFlash." & i)
   vbFlashInstalled = IsObject(ObjAct)
   If vbFlashInstalled Then
       vbFlashVersion = CStr(i)
       Exit For
   End If
Next