Ayuda con un ejercicio (imports.IO)

[crashoverride1305]

como una imagen vale mas que mil palabras les dejo el form del ejercicio para que puedan entender lo que intento hacer.



el codigo que llevo es el siguiente : me marca ERROR EN LA PARTE ROJA, QUE PUEDO HACER PARA corregirlo

Imports System.IO.StreamWriter
Public Class Form1

    Private Sub BtnSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSalir.Click
        'cerrar el programa
        Me.Close()

    End Sub

    Private Sub BtnTexto_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTexto.Click
        ' declarar una variable para la escritura
        ' de texto en un fichero
        Dim oEscritor As StreamWriter

        ' crear un fichero de texto vacío
        ' y obtener un objeto StreamWriter
        ' para escribir en el fichero
        oEscritor = file.CreateText(Environment.CurrentDirectory & "\" & Me.TxtNombre.Text & ".TXT")
        ' escribir en el fichero el contenido del
        ' control TextBox
        oEscritor.Write(Me.TxtTexto.Text)
        ' cerrar el objeto, lo que cierra también el
        ' fichero, y eliminar el objeto
        oEscritor.Close()
        oEscritor = Nothing
    End Sub
End Class

[Shell Root]

Hace rato que no toco .NET,

Código (vbnet) [Seleccionar] Expandir


Imports System.IO
' # SNIP
File.CreateText(path)

:http://msdn.microsoft.com/es-es/library/system.io.file.createtext%28v=vs.80%29.aspx

[Eleкtro]

El ejercicio se puede simplificar mucho xD

Código (vbnet) [Seleccionar] Expandir

Public Class Form1
    Private Sub BtnSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSalir.Click
        Application.Exit()
    End Sub

    Private Sub BtnTexto_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTexto.Click
        My.Computer.FileSystem.WriteAllText(Environment.CurrentDirectory & "\" & Me.TxtNombre.Text & ".TXT", Me.TxtTexto.Text, False)
    End Sub
End Class

Saludos!