Sub MashSpeak(pg As ABMPage, msg As String, rate As Double)
Dim script As String = $"var speech = new SpeechSynthesisUtterance();
// Set the text and voice attributes.
speech.text = "${msg}";
speech.volume = 1;
speech.rate = ${rate};
speech.pitch = 1;
window.speechSynthesis.speak(speech);"$
pg.ws.Eval(script,Null)
pg.ws.flush
End Sub