VB6
やりたい事　Ｌｏｎｇ型変数の下位２バイトを取り出したい

Dim val1 As Long
Dim val2 As Long
　　　　・
　　　　・
　　　　・
val2　=　val1 And &HFFFF

これでできません。なぜ？