Function Detect( ID )
  On Error resume next
  Detect = IsObject(CreateObject( ID ))
End Function

For i = 7 To 1 Step -1
   if Detect("ShockwaveFlash.ShockwaveFlash." + CStr(i)) then
       flashVers = CStr(i)
       flash = True
       Exit For
   end If
Next