Dim value As String = My.Application.Info.DirectoryPath
 
        Dim file As System.IO.FileStream
        file = System.IO.File.Create(My.Application.Info.DirectoryPath & "\" & _
          Textbox2.Text & "*.*txt")
        file.Close()