Usa la siguiente subrutina:
Sub SeparaNumero(lNumero As Long, lParteBaja As Long, lParteAlta As Long)
lParteBaja = lNumero And &HFF
lParteAlta = (lNumero And &HFF00) / &H100
End Sub
Tendrás que suministrar el número del cual quieres sacar los 8 bits bajos y los 8 altos por separado, más otras dos variables Long, en las cuales se almacenará el resultado.