おかげさまで、無事動きました。
あくまでＶＢ初心者なもので・・・無知ですみません。

みなさまご親切にありがとうございました。