Streamwriter Porblem

Hey i am trying to make a mod kit for a game , using the streamwriter tool in visual basic but it keeps leaving a blank line at the end of the text.
here is my code

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim file As System.IO.StreamWriter

file = My.Computer.FileSystem.OpenTextFileWriter("C:\Users\Joseph & Emily\Downloads\Pokemon\Save\" & TextBox1.Text & "\Party.dat", False)
file.WriteLine(TextBox2.Text)

TextBox2.Clear()


End Sub

i need to know how to stop it from leaving a blank line in the .dat file