Imports System.IO
 Dim stre As Stream
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim sstr As String = TextBox1.Text
        Dim byts() As Byte = System.Text.Encoding.Default.GetBytes(sstr.ToCharArray)
           Try
            stre = File.OpenWrite("E:\anlige\code.txt")
            stre.Write(byts, 0, byts.Length)
            stre.Close()
            stre = Nothing
         Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Information, "Information")
        End Try
    End Sub
把路径该为年的路径就好了！