Private i, x
On Error Resume Next
For i = FS_maxVersion To 1 Step -1
  Set x = CreateObject("ShockwaveFlash.ShockwaveFlash." & i)
  FS_flashInstalled = IsObject(x)
  If FS_maxVersion = i Then
      FS_actualVersion = FS_maxVersion
      Exit For
  End If

  If FS_flashInstalled Then
     FS_actualVersion = CStr(i)
     Exit For
  End If
Next