Escribir en un fichero texto

[Stream]

Hola.. lo puedes hacer asi tambien:

Importas el:

Imports System.IO

Código:

    Dim FileError As New System.IO.FileInfo(FileName)

        If Not FileError.Exists Then
            Dim fs As FileStream = File.Create(FileName)
            fs.Close()
        End If
        FileError = New System.IO.FileInfo(FileName)
        If FileError.Exists Then
            FileOpen(1, FileName, OpenMode.Append)
            Print(1, "texto que deseas agregar")
            FileClose(1)
        End If

Espero te sirva..