Imports System
Imports System.IO
Imports System.Text
Public Class Test
Public Shared Sub Main()
Dim path As String = "c:\temp\MyTest.txt"
If File.Exists(path) = False Then
Dim createText As String = "Hello and Welcome" + Environment.NewLine
File.WriteAllText(path, createText)
End If
Dim appendText As String = "This is extra text" + Environment.NewLine
File.AppendAllText(path, appendText)
Dim readText As String = File.ReadAllText(path)
Console.WriteLine(readText)
End Sub
End Class