Manejar TTS en Access mediante código y botones

No sé si lo que estoy pidiendo es demasiado o no, pero he logrado hacer que Access lea mis TextBoxes pero el problema es que quiero manejar su funcionamiento. Hasta ahora no lo puedo detener y si se puede no sé cómo hacerlo.

El código que uso es:

Public Sub fSayIt(vcmd As String)
    Dim s As Object
    Set s = CreateObject("SAPI.SpVoice")
    s.Speak vcmd
    Set s = Nothing
End Sub

Ni recuerdo donde lo obtuve y ha funcionado.
¿Hay alguna forma de meterle control al funcionamiento?
Por ejemplo: presionar ESC para detener la lectura o cosas así. Nada del otro mundo (nada de aumentar o disminuir la velocidad o cosas así) sino simplemente detener la lectura cuando ya no quiero seguir.

Añade tu respuesta

Haz clic para o