Speech Question

[BT]

Hi Chip,
    Maybe something like this:
    Using milliseconds inside the ()

    Public Sub Talk(txt)
        tts4.Speak txt
        waitFlag = tts4.Speaking
        Do While waitFlag
            WScript.Sleep 10
            waitFlag = tts4.Speaking
        Loop
    End Sub