Public Function GetTokenNonSpace( _
ByRef rValue As Variant _
) As Variant Assuming
Dim S As String
S = " First, Second, Third"
for example
GetTokenNonSpace(S) = "First,"
leaves
S = "Second, Third"See also: GetTokenCharSeps Function
GetTokenAlphanumeric Function
GetToken FunctionrValue: The string containing the tokens of which the first is to be removed and returned. Function returns Null if rValue is Null or cannot be fixed up to a String. Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.