File Directory VB.Net

Imports System
Imports System.IO
Imports System.Text
Public Class Test
    Public Shared Sub Main()
    
        Dim FileName As String= "test.txt" 
        Dim TextToAdd As String = "data"
        Dim Fs As FileStream = New FileStream(FileName, FileMode.CreateNew, FileAccess.Write, FileShare.None)
    
    
        Dim SwFromFileStream As StreamWriter = New StreamWriter(Fs)
        SwFromFileStream.Write(TextToAdd)
        SwFromFileStream.Flush()
        SwFromFileStream.Close()
    
    End Sub
End Class