Dim ObjTextToSpeech As Object

Sub RegistryLesen()
 
    'stimme
    pubSprecherStimme = GetSetting(App.Title, "Options", "SprecherStimme", _
      "Name=Mirosoft Anna")
    pubiSprecherTempo = Val(GetSetting(App.Title, "Options", "SprecherTempo", _
    "0"))
 
End Sub

Private Sub cmdLesen_Click(Index As Integer)
 
    Dim sa As String
    Dim ObjTextToSpeech As Object
 
    Set ObjTextToSpeech = CreateObject("SAPI.spVoice")
    Set ObjTextToSpeech.voice = ObjTextToSpeech.GetVoices( _
      pubSprecherStimme).Item(0)
    ObjTextToSpeech.Rate = pubiSprecherTempo
 
    sa = "Für die Entwicklung des modernen Rechtsstaats, war nicht der Einfluss" & _
      "des Christentums entscheidend, sondern die Befreiung von ihm."
 
    Me.MousePointer = 11
    ObjTextToSpeech.speak sa
    Me.MousePointer = 0
 
End Sub