Public Sub escrever()

        ' Cria uma instância de uma StreamWriter para escrever num ficheiro

        Dim sw As StreamWriter = New StreamWriter("testfile.txt")

        ' Inclui algum texto

        sw.Write("Este é um teste")

        sw.WriteLine("-------------------")

        ' Outros objectos podem ser escritos no ficheiro

        sw.Write("Data : ")

        sw.WriteLine(DateTime.Now)

        sw.Close()

    End Sub