代码：

Public Function f_RemoveReturnAtEnd(ByVal strData$)    '去掉最尾巴的回车
    Do Until Right$(strData, 2) <> vbCrLf
        strData = Left(strData, Len(strData) - 2)
    Loop
    f_RemoveReturnAtEnd = strData
End Function