try instrrev to find .which may not be in older versions so you could use.
Function InStrRev(Strng As String, Char As String) As Integer
Dim Lngth As Integer, i As Integer
Lngth = Len(Strng)
For i = Lngth To 1 Step -1
If Mid(Strng, i, 1) = Char Then
InStrRev = i
Exit Function
End If
Next i
End Function
'Howard Groves cmmroom@ ddre.detroitdiesel.com
Public Function InstrBack(ByRef intStart As Integer, ByRef strCheck As
String, ByRef strFind As String) As Integer
'Another method of above
'RETURNS THE POSITION OF THE LAST OCCURRENCE OF A STRING WITHIN A STRING
Dim intCounter As Integer
InstrBack = 0
For intCounter = (Len(strCheck) + 1 - intStart) To 1 Step -1
If Mid$(strCheck, intCounter, 1) = strFind Then
InstrBack = intCounter
Exit Function
End If
Next intCounter
End Function
Public Function StrReverse(reverseString As String) As String
Dim i As Long
For i = Len(reverseString) To 1 Step -1
StrReverse = StrReverse & Mid(reverseString, i, 1)
Next i
End Function
