Is this what you meant to have wrote?:

Code:
DirectSR1.GrammarFromFile App.Path & "g:\stuff\vb\msagents\grammer.txt

Shouldn't it have been either:

Code:
DirectSR1.GrammerFromFile App.Path & "\grammer.txt"
or

Code:
DirectSR1.GrammerFromFile "g:\stuff\vb\msagents\grammer.txt"
??

But I don't see any problems with your actual PhraseFinish event. If it still doesn't work, try a simpler Select Case to choose the Phrase and try simpler words first. Like just "1" and "2"


Sunny