SpanExcuding

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

Function SpanExcluding (S, sSökSträng)
   If Len(S) = 0 Then
      SpanExcluding = ""
   Else
      SpanExcluding = Left( S, InStr(1, S, sSökSträng) - 1)
   End If
End Function