At gemme en listbox som txt.fil

Hej

Jeg har et problem angående mit projekt, hvor jeg gerne vil kunne gemme tallene jeg har i en listbox i et dokument på computeren. Håbede derfor lidt at det var muligt at få lidt hjælp.
Det her er den kode jeg er nået frem til, indtil videre:
Imports System.IO
Public Class Form1
Dim Areal As String
Dim a, b, c, g, h, n, dx, s, t, m, da As Double
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a, b, c, g, h, n, dx, s, t, m, da As Double
a = TextBox1.Text
b = TextBox2.Text
c = TextBox3.Text
g = TextBox4.Text
h = TextBox5.Text
n = TextBox7.Text
Dim Areal As String = 0
dx = (h - g) / n
s = g
For i = 1 To n
t = s + dx
m = (t + s) / 2
da = dx * (a * m ^ 2 + b * m + c)
Areal = Areal + da
s = t
Next i
TextBox6.Text = Areal
ListBox1.Items.Add(Areal)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If (FolderBrowserDialog1.ShowDialog) Then
Dim Path As String = FolderBrowserDialog1.SelectedPath
Dim Exportpath, ExportFileName, Fullexport As String
ExportFileName = Date.Today.Date & "-" & Date.Now.Hour & "-" & Date.Now.Minute & "-" & Date.Now.Second & "-" & ".txt"
Exportpath = Path & "\"
Fullexport = Exportpath & ExportFileName
Using sw As StreamWriter = New StreamWriter(Fullexport)
sw.WriteLine("#" & TextBox7.Text)
For i = 0 To Areal
Dim tangets As Double
tangets = Areal
sw.WriteLine(tangets)
Next
End Using
End If
End Sub
End Class


På forhånd tak.