Speak

Imports System.Runtime.CompilerServices 
Imports System.Speech.Synthesis 

Module Module1 
    <Extension()> _ 
    Sub Speak(ByVal x As String) 
        Using synth As New SpeechSynthesizer() 
            synth.Speak(x) 
        End Using 
    End Sub 

End Module

Dim x = "Hello World" 
x.Speak()