I think you could probably turn the number into a string, then use some string manipulation functions, then turn is back into a number.

Eg :

' number into string
strNumber = cstr(12345)

' get first 3 digits
strFirst3Digits = Left$(strNumber, 3)

' string into number
intNumber = cint(strFirst3Digits)

Hope this helps.