Public Function GetTokenBufferedFast( _
      ByRef rValue As String _
    , ByRef rBuffer As String _
    , ByVal vTokenSep As String _
    , ByVal vCompare As VbCompareMethod _
    ) As String

    Assuming
       Dim S As String
       S = "First,Second,Third"
       Dim B As String
    for example
       GetTokenFast(S, B, ",", vbBinaryCompare) = "First"
    leaves
       S = "Second,Third"

    GetToken Function
    GetTokenCharSeps Function
    GetTokenAlphanumeric Function
    GetTokenNonSpace Function
    GetVBToken Function
    GetOpt Function
    strtok Function
    GetTokenFastSample Subroutine