生成自定义后缀的文件(比如.abc)

我的方法不知道是不是很苯.......

 Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a As String
        SaveFileDialog1.Filter = "abc|*.abc"
        If SaveFileDialog1.ShowDialog = DialogResult.OK Then
            a = SaveFileDialog1.FileName
            Dim sw As System.IO.StreamWriter = New System.IO.StreamWriter(a)
            sw.Write(TextBox1.Text)
            sw.Write(TextBox2.Text)
            sw.Close()
        End If
    End Sub