>  ホイールの回転量がwParamの上位バイトとありますが
上位ワードではなく、上位バイトですか?

> どうやってそれを取り出せばいいのか分かりません
やり方はいろいろありますが、上位の取得なら、\ 演算子で割るか、
ビットシフト演算子でずらせば良いと思います。

たとえば、元の wParam が UInt32 型だとすれば、
　Dim 最上位のバイト As UInt32 = wParam \ &H1000000UI
　Dim 上位のワード As UInt32 = wParam \ &H10000UI
などで取り出せます。