neptuneさんレスありがとうございます。
最後のLongをintegerに直せばいいんですよね。

まだプログラミングを始めて２ヶ月程度で、ネットでサンプルコードを見て勉強しているので、
これからVB6のサンプルコードを参考にするときには、注意したいと思います。