Private Sub btnDataSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDataSave.Click



    Dim FilePath As String = "C:\Test\test.txt"

    Dim Data As String = Me.txtTitle.Text & vbNewline & Me.txtData.Text & vbNewline



    Dim sw As New IO.StreamWriter(FilePath, True,System.Text.Encoding.GetEncoding(932))

        

    sw.Write(Data)

    sw.Close()



    MsgBox("保存しました。", MsgBoxStyle.Information, "保存完了")



End Sub