Hola tres funciones que a veces suelen ser utiles cuando trabajamos con subclasing o sendmessage

Private Function LoWord(ByVal Numero As Long) As Long
LoWord = Numero And &HFFFF&
End Function
...