Como salvar texto

Hoje Eu ensinarei como salvar o texto de uma caixa de texto :D
1:qunado estiver no seu projeto , na tool box procure pela guia dialogs , adicione um "savefile dialog"
E agora edite o codigo do botão , que você deseja que execute a ação salvar , no codigo digite:

SaveFileDialog1.Filter = "Texto (*.txt) |*.txt"
        SaveFileDialog1.ShowDialog()
        If SaveFileDialog1.FileName <> "" Then
            FileOpen(1, SaveFileDialog1.FileName,
OpenMode.Output)
            PrintLine(1, TextBox1.Text)
            FileClose()
        End If

Vale lembrar que você pode editar a caixa de texto a ser salva, mudando a terceira linha de baixo para cima
E editar a extensão , na primeira linha .
Duvidas comente X-{D