在VB中，如果Trim函数无法删除结尾的换行符，可以尝试使用Replace函数来替换结尾的换行符。以下是一个示例代码：
Dim str As Stringstr = "Hello World" & vbCrLf' 使用Replace函数替换结尾的换行符str = Replace(str, vbCrLf, "")' 使用Trim函数删除可能存在的空格str = Trim(str)MsgBox str通过使用Replace函数来替换结尾的换行符，再结合Trim函数来删除可能存在的空格，可以达到去除结尾换行符的效果。
