So, ich hab' mein altes Programm zwar nicht mehr gefunden, aber ein kleines neues gemacht:
Code:
Dim WithEvents RecoContext As SpSharedRecoContext
Dim Grammar As ISpeechRecoGrammar
Dim Position As Integer

Private Sub Command0_Click()
    Set RecoContext = New SpSharedRecoContext
    Set Grammar = RecoContext.CreateGrammar(1)
    Grammar.DictationLoad
    
    Grammar.DictationSetState SGDSActive
    Command0.Enabled = False
    Command1.Enabled = True
End Sub

'Stopknopf
Private Sub Command1_Click()
    Grammar.DictationSetState SGDSInactive
    Command1.Enabled = False
    Command0.Enabled = True
End Sub

Private Sub RecoContext_Recognition(ByVal StreamNumber As Long, ByVal StreamPosition As Variant, ByVal RecognitionType As SpeechRecognitionType, ByVal Result As ISpeechRecoResult)
    Dim Text As String
    RecoText = Result.PhraseInfo.GetText
    Text1.SelStart = Position
    Text1.SelText = RecoText & " "
    Position = Position + 1 + Len(RecoText)
End Sub
Damit werden englische Wörter ganz gut erkannt, allerdings muss man das Profil vorher erst trainieren (Systemsteuerung -> Sprachein/-ausgabe)

Gruß, Trabukh