Foro de elhacker.net

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

(http://i45.tinypic.com/x3i9t1.jpg)

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

Hace rato que no toco .NET,

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

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

El ejercicio se puede simplificar mucho xD

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!