LEFT not working properly?

[frosty7700]

I keep getting an "Invalid procedure call or argument: 'Left'" message when I run the following code:

company = replace(company,"'","''&quot
x = instr(company,"-&quot - 1
company = Left(company,x)

What's weird is when I remove the "- 1" from line 2, for example if I use "+ 1" or nothing at all, it works fine. I have verified that dashloc IS getting a numeric value regardless, so I'm really stumped...it's as if the LEFT function has just decided to take on an aversion to subtraction. Note that I have also tried:

company = replace(company,"'","''&quot
company = Left(company,instr(company,"-&quot - 1)

 

[JohnYingling]

Left will not accept negative length. What if no "-"?
Never trust that Instr will always return > 0.
company = replace(company,"'","''&quot
x = instr(company,"-&quot - 1
if X < 1 then
company = &quot;&quot;
else
company = Left(company,x)
End if

http://www.VBResizer.com

Forms/Controls Resizing/Tabbing Control

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript

 

[JohnYingling]

OR change to
if X > 0 then
company = Left(company,x)
End if
if you are just removing extraneous stuff from company name

http://www.VBResizer.com

Forms/Controls Resizing/Tabbing Control

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript

 

[frosty7700]

*smacking myself in the head*

Thanks!