Escribir un fichero en formato unicode (UTF-16) en VB .net

¿Alguna vez habeis necesitado escribir un fichero de texto Visual Basic .net  en formato Unicode o UTF16 en lugar del UTF-8 que viene por defecto?

El código es muy sencillo:

Dim sw As New IO.StreamWriter("c:\aldeamedia.txt", True, System.Text.Encoding.Unicode)
sw.WriteLine("visite www.devjoker.com")
sw.Close()

Lo bueno si breve... :)