Anyone know how to split a single into 3 byte longs?

basicly, I want to pass in 16FF6715F7F2 and get 16FF67 and 15F7F2 out.

Yes , I know longs are 4 bytes in VB, but the rotines I am using require 3 bytes. By the way, how many bytes long is the longest possible single?