>（ＶＢ６のコードらしいですが、VB2008でもうごきました。）
ダメですよ、これ。

VB6 と VB.NET 以降で Long → Integer をはじめ宣言部が変わります。
VB.NET の宣言で書き直してください。メモリ上のサイズが変わっているので
宣言部を間違うと PC のメモリで、想定外のエリアを書き潰して壊す場合が
あります。

API は特に慎重に扱う必要がある技術です。
パソコンが動かなくなっても気にしない人なら言っても無駄かもしれませんが。