Public Function Oct(ByVal Number As Long) As String
Returns the octal value (base-8) of the specified number.
SendDebug(Oct(6)) 'Prints 6
SendDebug(Oct(7)) 'Prints 7
SendDebug(Oct(8)) 'Prints 10
SendDebug(Oct(15)) 'Prints 17
SendDebug(Oct(16)) 'Prints 20