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.