How to append text to a text file? - vba

Question

I want to write text from text boxes to a text file.
The code writes the first line of the text file. When I clear the text boxes to write other values, what was previously written disappears and is replaced by the new values.
How do I get the new set of values to be written under the previous?
Dim path As String = TextBox1.Text & ".txt"
path = "C:\Users\USER\Desktop\" & path
Dim studentno As Integer = TextBox2.Text
Dim name As String = TextBox3.Text
Dim surname As String = TextBox4.Text
Dim subject As String = TextBox8.Text
Dim indv As Integer = TextBox5.Text
Dim grp As Integer = TextBox6.Text
Dim test As Integer = TextBox7.Text
If System.IO.File.Exists(path) = True Then
Dim sw As New System.IO.StreamWriter(path)
sw.WriteLine(studentno & "," & name & "," & surname & "," & subject & "," & indv & "," & grp & "," & test)
sw.Close()
MessageBox.Show("Text written to file.", "Note", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
MessageBox.Show("File Does Not Exist.", "Note", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
End Sub

Answer 1

This is the code i have to create the file, it works perfectly so this is fine.
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim path As String = TextBox1.Text & ".txt"
path = "C:\Users\USER\Desktop\" & path
If String.IsNullOrEmpty(TextBox1.Text) = True Then
MessageBox.Show("Textbox Empty", "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)
ElseIf Not File.Exists(path) Then
File.Create(path).Dispose()
MessageBox.Show("File created.", "Note", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
MessageBox.Show("File already exists.", "Note", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
End Sub