SpanIncluding

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

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