Public Function StringShiftRight( _ ByRef rValue As Variant _ ) As Integer
Assuming Dim S As String S = "ABC" for example StringShiftRight(S) = 67 = Asc("C") leaves S = "AB"See also:
StringShiftLeft Function StringRotateRight Function ShiftStringRight FunctionrValue: String whose characters are to be shifted right one position. Function returns -1 (the value of the AscEOF Property) if rValue is Null or cannot be fixed up to a String.
Function also returns -1 if rValue is an empty string.
Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.