Excel VBA помещает дополнительную пустую строку в конец текстового файла при экспорте

У меня есть макрос Excel VBA, который выводит данные в текстовый файл. Внизу текстового файла всегда есть пустая строка, и мне трудно избавиться от нее. Будем очень признательны за любые полезные предложения! Спасибо

Sub testExport()

  Dim fPath As String, exportTxt As String
  fPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\Sample_" & Format(Now(), "HHNNSS") & ".txt"

  exportTxt = "Project: Sample Output" & vbCrLf
  exportTxt = exportTxt & "Model Version: 1 "


  Open fPath For Append As #1    'write the new file
  Print #1, exportTxt
  Close #1

End Sub