[Visual Basic] Datenbank

Class Test
    Public Shared Sub Main()
        Try
            ' Create an instance of StreamReader to read from a file.
            Dim sr As StreamReader = New StreamReader("TestFile.txt")
            Dim line As String
            ' Read and display the lines from the file until the end 
            ' of the file is reached.
            Do
                line = sr.ReadLine()
                Console.WriteLine(Line)
            Loop Until line Is Nothing
            sr.Close()
        Catch E As Exception
            ' Let the user know what went wrong.
            Console.WriteLine("The file could not be read:")
            Console.WriteLine(E.Message)
        End Try
    End Sub
End Class

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Text = Readline ("C:\*****\*****\****\Datei1.txt")
        TextBox2.Text = Readline ("C:\*****\*****\****\Datei2.txt")
        TextBox3.Text = Readline ("C:\*****\*****\****\Datei3.txt")
     End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click
        My.Computer.FileSystem.WriteAllText("Datei1.txt", TextBox1.Text + vbNewLine, True)
        My.Computer.FileSystem.WriteAllText("Datei2.txt", TextBox2.Text + vbNewLine, True)
        My.Computer.FileSystem.WriteAllText("Datei3.txt", TextBox3.Text + vbNewLine, True)
        Me.Close()
    End Sub