Function CheckIEControl()
  Dim SpeechControl
  On Error Resume Next
  Set SpeechControl = CreateObject("IESP.SpeechControl.1")
  CheckIEControl=IsObject(SpeechControl)
End Function