vba - Excel 範囲を .txt ファイルにエクスポートするときに余分な空の行を取得する

Question

Excel の範囲を .txt ファイルにコピーしようとしています。

エクスポートは成功しますが、1 つの例外があり、末尾に"余分な" 空行が 1 行追加されます。

SO (および他のサイト) で多くのソリューションを読んでテストしましたが、まだ成功していません。

マイコード（該当部分）

' === Export to the .txt file ===
Dim TxtFileName As String, lineText As String

TxtFileName = ThisWorkbook.Path & "\Inv_" & Format(Date, "yyyymmdd") & ".txt"

Open TxtFileName For Output As #1
With StockSht
    For i = 1 To LastRow
        For j = 1 To 3
            If j = 3 Then
                lineText = lineText & .Cells(i, j).Value2
            Else ' j = 1 or 2
                lineText = lineText & .Cells(i, j).Value2 & vbTab
            End If
        Next j
        Print #1, lineText
        lineText = ""
    Next i
End With
Close #1

My StockSht(ワークシート オブジェクト)LastRowが正しく定義されており、その値を取得しています。

エクスポートされた .txt ファイルの最後のスクリーンショット