Private Sub save_file() /*Función para guardar ficheros .htm/.html*/
Open dlg.FileName For Output as #1  /*Se abre como salida el archivo previamente elegido por un cuadro de diálogo*/
   Print #1, "texto"
Close #1 /*Se cierra el arcvhivo de salida*/
End Sub

Dim fileName As New  System.IO.StreamWriter("nombre del archivo")
fileName.WriteLine("contenido del archivo")
fileName.Close()

Private Sub bGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bGuardar.Click
       Dim dlAbrir As New System.Windows.Forms.SaveFileDialog
       dlAbrir.Filter = "Archivos de Texto (*.txt)|*.txt|" &  "Todos los archivos (*.*)|*.*"
       dlAbrir.CheckFileExists = False
       dlAbrir.OverwritePrompt = True
       dlAbrir.Title = "Guardar archivo"
       dlAbrir.ShowDialog()
       If dlAbrir.FileName <> "" Then
           Dim fichero As New  System.IO.StreamWriter(dlAbrir.FileName)
           fichero.WriteLine(textbox1.Text)
           fichero.Close()
       End If
   End Sub