ReverseSpanExcluding

Söker fram delsträngar tex. ReverseSpanExcluding ("ACCESS.EXE", ".") ger "EXE"

'Function ReverseSpanExcluding(Sträng, SökSträng)
'Plockar ut en delsträng fram till ett givet tecken
'men söker bakifrån till skillnad från SpanExcluding
Function ReverseSpanExcluding(S, sSök)
   S = Reverse(S)
   If Len(S) = 0 Then
      ReverseSpanExcluding = Empty
   Else
      ReverseSpanExcluding = Reverse(Left$(S, InStr(1, S, sSök) - 1))
   End If
End Function