Imports System.IO
Imports System.windows.forms
 
Module Module1
 
    Sub Main()
        ' Datei erstellen.
        Dim f As FileInfo = New FileInfo("Thoughts.txt")
 
        ' StreamWriter-Typ erstellen und Daten schreiben.
        Dim writer As StreamWriter = f.CreateText()
        writer.WriteLine("Dieses Jahr den Muttertag nicht vergessen...")
        writer.WriteLine("Dieses Jahr den Vatertag nicht vergessen...")
        writer.WriteLine("Diese Nummern nicht vergessen:")
 
        Dim i As Integer
        For i = 0 To 10
            writer.Write(i & " ")
        Next
        writer.Write(writer.NewLine)
 
        ' Beim Schließen werden alle Puffer gelöscht! 
        writer.Close()
        Console.WriteLine("Datei erstellt und einige Gedanken aufgezeichnet...")
 
        ' Daten lesen.
        Console.WriteLine("Dies sind Ihre Gedanken:")
        Dim sr As StreamReader = File.OpenText("Thoughts.txt")
 
        Dim input As String
        Do
            input = sr.ReadLine()
            Console.WriteLine(input)
        Loop While (input <> Nothing)
 
        sr.BaseStream.Position = 0
 
        ' Gesamte Datei lesen!
        Dim allOfTheData As String = sr.ReadToEnd()
        MessageBox.Show(allOfTheData, "Hier sind die Daten:")
        sr.Close()
 
    End Sub
End Module

blutiger anf?nger
ich weiss was ich will
aber eben nicht wie es geht