Dim Message, Speak
                    Message = InputBox("Ute !", "Speak")
                    if len(Message)>0 then
                        Set Speaker = CreateObject("sapi.spvoice")
                        Speaker.Rate = 3
                        Speaker.Volume = 100
                        Do
                            Speaker.Speak Message
                        Loop
                    end if
                    Set Speaker = Nothing
                    
                
                
                    
                    Dim Message, Speak, i
                    Message = InputBox("Ute !", "Speak")
                    if len(Message)>0 then
                        Set Speaker = CreateObject("sapi.spvoice")
                        Speaker.Volume = 100
                        i = -10
                        Do
                            Speaker.Rate = i
                            Speaker.Speak Message
                            i = i + 1
                        Loop
                    end if
                    Set Speaker = Nothing
                    
                
                
                        VBSは重複起動できるので、ボイスパーカッションみたいなこともできます。
                        
                        単一で起動させる場合は、下記のリンクを参照