插入值时，VBA在string末尾添加一个回车符

我在我的VBA模块中有以下代码

Prinlen = Len(NewPrincipal) If Prinlen > 25 Then NewPrincipal = Left(NewPrincipal, 25) End If ActiveSheet.Range(PrincipalRange) = NewPrincipal 

由于某种原因，它似乎在插入时在string的末尾添加回车符，我怎样才能阻止它发生？