on error resume next

If MSDetect = "true" Then

    For i = 2 to 25
         If Not(IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." & i))) Then

         Else
           	flashinstalledVar = 2
			flashversionVar = i
         End If
    Next


End If

If flashinstalledVar = 0 Then
	flashinstalledVar = 1
End If