Access - poner voz a mi aplicacion

Hola a todos, me pasaron este codigo que que hace que cuando entre en un cuadro de texto me lea en voz alta lo que en el hay escrito.

Private Sub Descrip_Click()
Dim Contador, ObjetoHabla As Object
On Error Resume Next
Set ObjetoHabla = CreateObject("ActiveVoice.ActiveVoice")
If ObjetoHabla Is Nothing Then
MsgBox "No hay motores de voz instalados"
Else
For Contador = 1 To ObjetoHabla.CountEngines
err.Clear
ObjetoHabla.Select (Contador)
If err.Number = 0 Then
ObjetoHabla.speak Me.DescripT.Value
End If
Next
End If
If err.Number = 0 Then
ObjetoHabla.speak ""
MsgBox "Detener la ejecucion"
End If
End Sub
El problema lo tengo por que la voz sintetizda se oia muy mal tipo robot, entoces he intalado otras voces que son casi perfectas y ahora es cuando he liado el gran lio puesto que lo que me debe leer me lo dice en ingles y con la voz de robot y la voz que inslate se mezcla con la otra, a proposito el camapo que lee es el Me.DescripT.Value.
lo que pretendo es usar la voz que he intalado para leer mis cuadros de texto

gracias

Tengo las mismas dudas..
intenta en Aprendamos Access de FaceBook.
o en más foros.
Salu2