[VBE2008] Aggiungere in coda a un file txt

[Neo996sps]

Ciao a tutti,

ho creato un programmino in cui devo scrivere il contenuto di alcune txtbox in un file di testo e aggiungere in coda. Ho creato due funzioni, una per la generazione della tabella e una per i dati:

Private Sub tabellaprodotti()
Dim space As String = " "
Dim colonnamodello As String = "v_product_model"
Dim fotografia As String = "v_products_image"
Dim descrizione As String = "v_products_name_2"
Dim descrizioneestesa As String = "v_products_description_2"
Dim URL As String = "v_products_url_2"
Dim prezzopromo As String = "v_specials_price"
Dim iniziopromo As String = "v_specials_date_avail"
Dim finepromo As String = "v_specials_expires_date"
Dim prezzonormale As String = "v_products_price"
Dim pesoarticolo As String = "v_products_weight"
Dim disponibiledal As String = "v_date_avail"
Dim aggiuntoil As String = "v_date_added"
Dim produttore As String = "v_manufacturers_name"
Dim categoria As String = "v_categories_name_1"
Dim subcategoria1 As String = "v_categories_name_2"
Dim subcategoria2 As String = "v_categories_name_3"
Dim subcategoria3 As String = "v_categories_name_4"
Dim tassa As String = "v_tax_class_title"
Dim abilitato As String = "v_status"
Dim finerecord As String = "EOREOR"
My.Computer.FileSystem.WriteAllText("" & SaveFileDialog1.FileName, colonnamodello & space & fotografia & space & descrizione & space & descrizioneestesa & space & URL & space & prezzopromo & space & iniziopromo & space & finepromo & space & prezzonormale & space & pesoarticolo & space & disponibiledal & space & aggiuntoil & space & produttore & space & categoria & space & subcategoria1 & space & subcategoria2 & space & subcategoria3 & space & tassa & space & abilitato & space & finerecord, False)
End Sub

Private Sub dati()
Dim space As String = " "
Dim EOR As String = "EOREOR"
Dim modello As String = txtModello.Text
Dim fotografia As String = txtFotografia.Text
Dim descrizione As String = txtDescrizione.Text
Dim descrizioneestesa As String = txtDescrizioneEstesa.Text
Dim URL As String = txtURL.Text
Dim prezzopromo As String = txtPrezzoPromo.Text
'Dim datainizio As Date
'dim datafine as date
Dim prezzo As String = txtPrezzo.Text
Dim produttore As String = txtProduttore.Text
Dim categoria As String = txtCategoria.Text
Dim subcategoria1 As String = txtSubcategoria1.Text
Dim subcategoria2 As String = txtSubcategoria2.Text
Dim subcategoria3 As String = txtSubcategoria3.Text
Dim tassa As String = cmbTassa.SelectedItem
Dim abilitato As String = cmbAbilitato.SelectedItem
My.Computer.FileSystem.WriteAllText("" & SaveFileDialog1.FileName, modello & space & fotografia & space & descrizione & space & descrizioneestesa & space & URL & space & prezzopromo & space & prezzo & space & produttore & space & categoria & space & subcategoria1 & space & subcategoria2 & space & subcategoria3 & space & tassa & space & abilitato, False)
End Sub

Richiamate singolarmente una funzione non c'è nessun problema, io però vorrei che ci fosse in cima la dichiarazione della tabella, mentre vorrei che ogni volta che vado a cliccare sul pulsante per inserire i dati questi venissero accodati ai precedenti. Come si fa quindi a fare questo?