配列の数を取得する方法 (ID:91549)

名前

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

本文 タイトル通りなのですが、配列の数を取得する方法は何かありますでしょうか？ 現在私の方法では何と言いますかかなり無理やりな気がします。 Dim Data1(I) Data1 = Split(Me.Text1,VbCrLf) On Error Resume Next Do If Data1(I) = 0 Then '式は何でもいいのですが配列の中身を確認 End If If Err <> 0 Then Exit Do End If I = I + 1 Loop On Error Goto 0 Debug.Print I '配列数を表示 ご存知の方はご教示よろしくお願い致します。