Imports System
Imports System.Data
Imports System.IO

public class TextFileCreation
   Shared Sub Main()
       Dim FileToRead As String = CurDir + "DotNetSpider.txt"
       Dim sFileName As FileStream

       Try
           TestFile = New FileStream(FileToRead, FileMode.Create,   FileAccess.ReadWrite)
           Dim Writer As New StreamWriter(sFileName )
           Writer.WriteLine("D")
           Writer.WriteLine("O")
           Writer.WriteLine("T")
           Writer.WriteLine("NET")
           Writer.WriteLine("SPIDER")
           Writer.Flush()
           TestFile.Seek(0, SeekOrigin.Begin)
       Catch CantCreate As Exception
          Console.WriteLine("Can't create an Text File or Can’t write the file")
           Exit Sub
       End Try
   End Sub
End Class