Dim fiBatErzeugen As IO.FileInfo
 
' *.txt wird erzeugt und der Name wird aus der TextBox6 entnommen
fiBatErzeugen = New IO.FileInfo(Application.StartupPath & TextBox6.Text & _
  ".txt")
' Datei wird erzeugt
fiBatErzeugen.Create()
 
Dim sw As IO.StreamWriter (Application.StartupPath & TextBox6.Text & ".txt")
sw.WriteLine("test")
sw.Flush()
sw.Close()