Создание html файлов с последующим сохранением - VB

Формулировка задачи:

Пожалуйста помогите. В форме будет кнопка и текстбокс при нажатии кнопки содержимое текстбокса должно сохраняться как html файл и что бы можно было указать куда сохранить этот файл (то есть в какую папку) вот я как бы начал! кинул туда SaveFileDialog1 и в кнопку вбил вот это код

                    Листинг программы
                
 
                        
                          
                    
Dim a As Integer
        If SaveFileDialog1.FileName <> "" Then
            a = FreeFile()
            Open SaveFileDialog1.FileName & ".html" For Output As a
            Print #a, TextBox1 
            Close #a
        End If

но не работает с кодом мне немного помогли сам VB знаю мало и плоховато!

Решение задачи: «Создание html файлов с последующим сохранением»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Imports System.IO
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim myStream As Stream
        Dim saveFileDialog1 As New SaveFileDialog()
 
        saveFileDialog1.Filter = "html files (*.html)|*.html|All files (*.*)|*.*"
        saveFileDialog1.FilterIndex = 2
        saveFileDialog1.RestoreDirectory = True
 
        If saveFileDialog1.ShowDialog() = DialogResult.OK Then
            myStream = saveFileDialog1.OpenFile()
            If (myStream IsNot Nothing) Then
                myStream.Close()
            End If
        End If
    End Sub
End Class