在VB中，如果Trim函數無法刪除結尾的換行符，可以嘗試使用Replace函數來替換結尾的換行符。以下是一個示例代碼：
Dim str As String
str = "Hello World" & vbCrLf
' 使用Replace函數替換結尾的換行符
str = Replace(str, vbCrLf, "")
' 使用Trim函數刪除可能存在的空格
str = Trim(str)
MsgBox str
通過使用Replace函數來替換結尾的換行符，再結合Trim函數來刪除可能存在的空格，可以達到去除結尾換行符的效果。
