Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        '一行目は上書き保存  

        IO.File.WriteAllText("C:\てすと.txt", TextBox1.Text & vbCrLf, _

        System.Text.Encoding.GetEncoding("Shift-JIS"))

        '二行目は追加保存 

        System.IO.File.AppendAllText("C:\てすと.txt", TextBox2.Text & vbCrLf, _

        System.Text.Encoding.GetEncoding("Shift_Jis"))

    End Sub