VBA: Remove last character from a string

[strorg]

How do I remove the last character from a string in VBA?

Thanks...Tom

 

[PlasmaticFire]

Similar questions

I have a similar issue but at the end of not all but most data I have question marks. What kind of macro would I run just to remove the question marks and nothing else?? I am not great at VBS. Thanks so much!

 

[PlasmaticFire]

Anybody please help.

 

[Boller]

Could do it with Find/Replace.

Enter ~? in the Find box and leave the Replace box blank.

A macro can be obtained via the macro recorder.

 

[PlasmaticFire]

Ah that works like a charm. I tried just the ? without the ~ and it was del everything. Thanks so much!

 

[jay_faze]

I wonder how to get the first characteres ?
I've :

12346-@-2
2345677-@-45
345434-@-34

and I want only the numeric values before the '-@-'

frn = "145334-@-"
        frn = Mid(frn, 1, Len(frn) - InStr(1, frn, "@"))
        frn = Mid(frn, 1, Len(frn) - 2)
        frn = CInt(frn)

this code doesn't seems to work

 

[jay_faze]

ok the solution is

r = "1232123-@-23"
p = InStr(1, r, "-")
r = Left(r, p - 1)

 

[Boller]

Alternatively :-

r = Val("1232123-@-23")

Or a worksheet formula :-

=LEFT(A1,FIND("-",A1)-1)