Visual Basic.NET - ayuda con este error

Public Class EscritorTexto

    Private Sub btnSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSalir.Click

        ' cerrar el formulario

        Me.Close()

    End Sub

    Private Sub btnGrabar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnGrabar.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 = E.CreateText(Environment.CurrentDirectory & "\" &

Me.txtNombreFichero.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

        ' objetos instanciados

        '---------------------

        oVar.Propiedad = valor ' asignar valor a propiedad

        variable = oVar.Propiedad ' recuperar valor de propiedad

        oVar.Metodo([ListaParametros]) ' llamar a método

        variable = oVar.Metodo([ListaParametros]) ' llamar a método y recuperar valor

        ' objetos compartidos

        '---------------------

        Objeto.Propiedad = valor ' asignar valor a propiedad

        variable = Objeto.Propiedad ' recuperar valor de propiedad

        Objeto.Metodo([ListaParametros]) ' llamar a método

        Variable = Objeto.Metodo([ListaParametros]) ' llamar a método y recuperar valor

    End Sub

End Class

Try

            Dim Filename As String = My.Computer.FileSystem.CurrentDirectory.ToString & "\" & TextBoxNomreFichero.Text & ".txt"

            RichTextBoxTxt.SaveFile(Filename, RichTextBoxStreamType.PlainText)

            MsgBox("Archivo de texto '" & TextBoxNomreFichero.Text & "' generado exitosamente en '" & My.Computer.FileSystem.CurrentDirectory.ToString, MsgBoxStyle.Information, "Archivo Generado")

        Catch ex As Exception

            MsgBox(ex.Message.ToString, MsgBoxStyle.Critical, "Error")

        End Try