API version useful TrimNull function: 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
