Visual Basic.NET - Guardar el contenido de un TextBox en un archivo *.txt al presionar el boton

Dim Intru As Object

        Dim Archivo As Object

        Intru = CreateObject("Scripting.FileSystemObject")

        Archivo = Intru.CreateTextFile("la ruta de tu carpeta creada en tu pc\nombre que llevara tu archivo.txt", True)

        'pasamos los datos de los texbox

        Archivo.WriteLine(txttexto.Text)

        Archivo.Close()