Разработать прототип автоматизации диспетчерского пункта сети складских помещений

Imports System
Imports System.IO
 
Public Class Form1
 
    Private Sub Btn_Create_Click(sender As Object, e As EventArgs) Handles Btn_Create.Click
        Dim FName As String
        Dim SW As StreamWriter
 
        With SFD
            .Filter = "Текстовые файлы (*.txt)|*.txt| Все файлы (*.*)|*.*"
            .ShowDialog()
            FName = .FileName
        End With
 
        SW = File.CreateText(FName)
 
    End Sub
 
    Private Sub Btn_Write_Click(sender As Object, e As EventArgs) Handles Btn_Write.Click
        Dim FName As String
        Dim Txt_Result As String
        Dim SW As StreamWriter
 
        With SFD
            .Filter = "Текстовые файлы (*.txt)|*.txt| Все файлы (*.*)|*.*"
            .ShowDialog()
            FName = .FileName
        End With
 
        SW = File.CreateText(FName)
 
        Txt_Result = Txt_Store.Text & "  " & Txt_Date.Text & "  " & Txt_Number.Text & " " & Txt_NameGood.Text & "  " & Txt_Unit.Text & "  " & Txt_Amount.Text & "  " & Txt_Price.Text
        With SW
            .Write(Txt_Result)
            .Close()
        End With
    End Sub
 
    Private Sub Btn_Read_Click(sender As Object, e As EventArgs) Handles Btn_Read.Click
        Dim FName As String
        Dim SR As StreamReader
        Dim MyStr As String
 
        With OFD
            .Filter = "Текстовые файлы (*.txt)|*.txt| Все файлы (*.*)|*.*"
            .ShowDialog()
            FName = .FileName
        End With
 
        SR = File.OpenText(FName)
 
        With SR
            MyStr = .ReadToEnd
            .Close()
        End With
        Txt_Result.Text = MyStr
    End Sub
End Class