Speech Recognition With VBA

[basem]

Hello Everyone,

I am trying to use speech recognition with VBA in different programs to get
them to perform certain operations based on voice commands...

No speech recognition is happening, even though I have been trying it using
simple commands like:

under form_Initialize:

Grammar = "[Grammar]" & vbCrLf & _
"langid = 1033" & vbCrLf & _
"type=cfg" & vbCrLf & _
"[<Start>]" & vbCrLf & _
"<start>=Notepad" & vbCrLf & _

DirectSR1.GrammarFromString Grammar
DirectSR1.Activate

under DirectSR1_PhraseFinish:

If Phrase = "Notpad" Then
Shell "notepad.exe", vbMaximizedFocus
Else
MsgBox "oops, no notepad?"
End If

No response at all to the speech and no recognition.

I would appreciate so much any help.

Thanks

Basem