function TrimStr(OneStr)
  TrimStr = Trim(OneStr)
end function