実行時エラーを回避するには (ID:122695)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Ｗｉｎ２０００、ＶＢ６（ＳＰ６）を使用しています。 コンパイルは通るのに、いざ操作をするとランダム(?)に 「実行時エラー ５」というメッセージがでて、exeが落ちてしまします。 どなたかアドバイスをいただけないでしょうか。 --エラー箇所-- Public Function チェック() As Boolean For ix = 1 To 8 If Text1.text = "" then Text1(ix).SetFocus MsgBox "○○入力して下さい。", vbOKOnly + vbInformation, App.Title Text1(ix).Text = "" チェック = True Exit Function Next ・ ・ ・