Look up the InStrRev function in the help files... it will produce much more
efficient code...

Function LastOfThese(LineOfText As String, Character As String) As Long
LastOfThese = InStrRev(LineOfText, Character)
End Function

--
Rick (MVP - Excel)


"Robin Clay" <Robin_B DOT Clay AT virgin DOT net wrote in message
...
Public Function LastOfThese(LineOfText$, Character$) As Integer
' Finds the position of the last time the Character appears in the
LineOfText
' e.g. "0123456,789,012,345,67,8,9,000" and "," gives 27
' It returns Zero if the Character does not appear in the LineOfText

Dim N As Integer, C As Integer

LastOfThese = 0
For N = 1 To Len(LineOfText$)
If Mid$(LineOfText$, N, 1) = Character$ Then LastOfThese = N
Next N

End Function
--
Regards

Robin


"delmac" wrote:

HI all, has anyone got a formula for finding thwe 1st space from the
right of
a string
e.g. These can have variable lengths as they are all addresses
Gar 29 Durban Avenue Dalmuir West C

I want to find the space between West and C

Thanks all (again)
--
delmac