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

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!