Распознавание голоса с помощью MS Direct Speech Recognizier

[SeVaN]

Решил сделать сделать программу для управления компьютером голосом. Здесь http://art.bdk.com.ru/govor/program2.htm нашёл кой-какую информацию по этой теме. Использовал следующий код:

Private Sub Form_Load()
Dim totaldata As String
totaldata = "[Grammar]" & vbCrLf & "langid = 1033" & vbCrLf & "type=cfg" & vbCrLf & "[]" & vbCrLf & "=Notepad" & vbCrLf & "=Volume" & vbCrLf & "=Media Player" & vbCrLf
DirectSR1.GrammarFromString (totaldata)
Dim engine
engine = DirectSR1.Find("MfgName=Microsoft")
DirectSR1.Select engine
DirectSR1.Activate
End Sub

Private Sub DirectSR1_PhraseFinish(ByVal flags As Long, ByVal beginhi As Long, ByVal beginlo As Long, ByVal endhi As Long, ByVal endlo As Long, ByVal Phrase As String, ByVal parsed As String, ByVal results As Long)
If Phrase <> "" Then frm.Caption = Phrase
End Sub

Запускается, никаких ошибок не происходит, но голос не распознаётся. Сторонними программами установленными на компьютере голос успешно распознаётся. Почему программа не работает? Что не так?