Dim SearchString As String, SearchChar As String, PartOfStringIWant As
String
Dim MyPos As Integer
SearchString ="2410,2411,2412,2413,2414,,,,,,,,,,,,," ' String to search
in.
SearchChar = ",," ' Search for ",,".
' A textual comparison starting at position 1. Returns position 25.
MyPos = Instr(1, SearchString, SearchChar, 1)
PartOfStringIWant = Left(SearchString, MyPos -1)
Quote:
> Hello
> I have following text row:
> Text=2410,2411,2412,2413,2414,,,,,,,,,,,,,
> "Text" can be what ever....
> Now what I want (using a macro), is to find the last number (number 4 in
> here) and delete everything after that.
> brgds Ismo