' Abrimos ventana de dialogo para guardar el archivo:
SaveFileDialog1.Filter = "Archivo (*.txt)|*.txt"
SaveFileDialog1.FileName = "MiArchivo"
' Todo ok? Entonces creamos el archivo:
If (SaveFileDialog1.ShowDialog() = DialogResult.OK) Then
Dim ArchivoTxt As New FileStream(SaveFileDialog1.FileName, FileMode.Create, FileAccess.Write)
Dim ArchivoSalida As New StreamWriter(ArchivoTxt)
ArchivoSalida.Write(ArchivoString)