Public Function vbsInstalled(ByVal vbsActiveX)
   On Error Resume Next
   vbsInstalled = 0
   Dim i, x
   For i = 10 to 1 Step -1
      Set x = CreateObject(vbsActiveX & "." & i)
      If IsObject(x) Then
         vbsInstalled = i
	     Exit For
	  End If
   Next
End Function