[VBA] Working with - sign as a string

[danny2001k]

My problem is this:

I have a macro that gets the info from a access db.

I have to check some strings if they have the - sign in them.

If InStr(string, "-") > 0 Then

My problem that office has some auto formating for the minus sign sometimes, it makes it longer and my code doesn't find that longer sign.

I tried copying the both minus signes in the vba code but the paste is the same minus: the little one.

 

[Ruddles]

The 'em dash' is ASCII 150 as opposed to the 'en dash' which is ASCII 45.

Try:-

If InStr(string, chr(45)) > 0 or InStr(string, chr(150)) > 0 Then

Or even:-

If InStr(string, chr(45)) + InStr(string, chr(150)) > 0 Then

What are you going to do with the little blighters once you've spotted them? Strip them out? Replace them with something else?

 

[danny2001k]

Ty, it worked perfect.

Wanted to keep only what is after them.

Final code:

If InStr(string, Chr(45)) > 0 Or InStr(string, Chr(150)) > 0 Then

If InStr(string, Chr(45)) > 0 Then
minus = InStr(string, Chr(45))
End If

If InStr(string, Chr(150)) > 0 Then
minus = InStr(string, Chr(150))
End If

string = Trim(Right(string, Len(string) - minus))
End If