拡張メソッドを作ったみましたのでメモ。

Module Extensions

    <System.Runtime.CompilerServices.Extension()> _
    Function Norm(ByVal xml As XElement) As String

        Dim normalize As String = System.Text.RegularExpressions.Regex.Replace(xml.Value, "s+", " ")

        Return (Trim(normalize))

    End Function

End Module

　上記の使い方は、たとえば以下。

Sub Main()
    Dim sql = <sql>
                select *
                  from table
              </sql>.Norm
    Console.WriteLine(sql)
End Sub

　結果はこんな。

select * from table

　まあ邪道と言いたくば言え（汗

　まとめると、コツとしては、
　　・System.Runtime.CompilerServices.Extension() 属性を付与する。
　　・VBの場合Moduleを使用する必要がある。
といったところでしょうか。