Function CheckIEControl()
  
   Dim MyVoiceControl
   
   On Error Resume Next
   
   CheckIEControl = 0
   
   Set MyVoiceControl = CreateObject("MVCONTROL.MVControlCtrl.1")
   
   if (IsObject(MyVoiceControl)) then CheckIEControl = 1
   
   set MyVoiceControl = nothing

End Function