Dim ObjTextToSpeech As Object
 
Private Sub cmd_Lesen_Click()
    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 = "Hallo"
 
    Me.MousePointer = 11
    ObjTextToSpeech.speak sa
    Me.MousePointer = 0
End Sub
 
Private Sub Form_Load()
    RegistryLesen
End Sub
 
Sub RegistryLesen()
 
    'stimme
    pubSprecherStimme = GetSetting(App.Title, "Options", "SprecherStimme", _
      "Name=Mirosoft Anna")
    pubiSprecherTempo = Val(GetSetting(App.Title, "Options", "SprecherTempo", _
    "0"))
 
End Sub

Option Explicit
 
Public pubSprecherStimme As String
Public pubiSprecherTempo As Integer

Vielen Dank an alle in diesem Forum, welche mir Ihre Zeit schenken und sich mit meinen Problemen befassen! Ich weiß das ernsthaft zu schätzen und danke allen, die sich mit dieser Frage befassen herzlich!!!