Private i, x

On Error Resume Next

MM_SWControlInstalled = False

For i = 9 To 1 Step -1
' i = version of sw to check up to.
   Set x = CreateObject("SWCtl.SWCtl.8.5" & i)

   MM_SWControlInstalled = IsObject(x)

   If MM_SWControlInstalled Then
       MM_SWControlVersion = CStr(i)
       Exit For
   End If
Next