Imports System
Imports System.IO
 
Module Main
	Sub Main()
		Console.WriteLine("Hello World!")
 
		' FileStream anlegen
Dim FStream As New FileStream("C:\Test\Test.txt", FileMode.Create, _
  FileAccess.ReadWrite, FileShare.Read)
  Dim SWriter As New StreamWriter(FStream)
  SWriter.Write("Text ohne Zeilenumbruch")
 
 
SWriter.Close()
 
		End Sub
End Module