Huge txt-saving problem!

[Jacob123]

Whenever I go to save files with this code:

Sub SaveText(txtSave As TextBox, Path As String)
    Dim TextString As String
    On Error Resume Next
    TextString$ = txtSave.Text
    Open Path$ For Output As #1
    Print #1, TextString$ 
    Close #1
End Sub

It adds the right data but at the very end it adds a vbNewLine! This messes up everything and i must prevent it from doing that.

Example, if i try to save "hello" to a file, it adds this:

"hello
"

big problem! can this be solved?