Salvar textos de uma (TextBox) em .txt VB 2008 By Ownect!

' Instanciamos e configuramos um objeto SaveFileDialog.
Dim sd As New SaveFileDialog()
sd.Filter = "Arquivos texto (*.txt)|*.txt"
sd.FilterIndex = 0
' Abrimos o SaveFileDialog e verificamos se o usuário
' selecionou um arquivo.
If sd.ShowDialog() = Windows.Forms.DialogResult.OK Then
    ' Gravamos o conteúdo do TextBox TextBox1 no arquivo
    ' selecionado.
    System.IO.File.WriteAllText(sd.FileName, TextBox1.Text)
End If