VBAでCSVファイルの末尾にできる改行を削除する方法

CSVファイルorテキストファイルの末尾にできる改行のみを削除する方法です。
CreateObject("VBScript.RegExp")
を作成して、文字列パターン
re.Pattern = vbCrLf & "+$"
で末尾の１個以上の改行を削除します。（途中行の改行は削除されません）

    ' 末尾の改行削除
Public Function DeleteCRLF(ByVal strNewFileLine As String)
    Dim re As Object
    Dim result As String
    Set re = CreateObject("VBScript.RegExp")
    're.Pattern = "\n+$"    '末尾の１個以上の改行
    re.Pattern = vbCrLf & "+$"    '末尾の１個以上の改行
    result = re.Replace(strNewFileLine, "")
    Set re = Nothing
    DeleteCRLF = result
End Function

できるビジネスパーソンのためのExcel VBAの仕事術【電子書籍】[ 西沢 夢路 ]