很有用的API版本的TrimNull函数：

Private Declare Function lstrlenW Lib "kernel32" (ByVal lpString As Long) As Long

Private Function TrimNull(startstr As String) As String

   TrimNull = Left(startstr, lstrlenW(StrPtr(startstr)))  

End Function