Como escrever em um arquivo texto usando os métodos Write e WriteLine da classe StreamWriter

'Este exemplo mostra como escrever em um arquivo
'texto usando os métodos Write e WriteLine da classe
'StreamWriter

'Veja o link:
'http://www.recomende.com/arquivo/visualizar_dica.php?qual_dica=1510
'para mais informações sobre a classe StreamWriter

'lembre-se das seguintes observações antes de executar
'este exemplo:
'a) se o arquivo não existir, ele será criado;
'b) se o arquivo já existir, seu conteúdo será apagado
'para que o novo conteúdo seja escrito.

Imports System.IO

Module Module1
  Sub Main()
    'define o diretório atual
    Directory.SetCurrentDirectory("c:\estudos_vb")

    'cria uma instância de StreamWriter para escrever no
    'arquivo desejado
    Dim sw As StreamWriter = New StreamWriter("arquivo.txt")
    'adiciona conteúdo ao arquivo
    sw.Write("Esta é a ")
    sw.WriteLine("primeira linha.")
    sw.WriteLine("Esta é a segunda linha.")
    sw.WriteLine("Esta é a terceira linha.")
    sw.Write("Esta é a quarta ")
    sw.WriteLine("linha.")
    sw.Close() 'fecha o objeto sw

    Console.WriteLine()
    Console.WriteLine("Pressione uma tecla para sair...")
    Console.ReadKey()
  End Sub
End Module