配列にそれぞれ値を入れると「宣言が必要」とエラーが出る

VBを使ってアプリケーションを作っているのですが、配列を宣言して各々に文字を入れているのですが、
いざビルドしてみようとすると、cnt(1)～cnt(101)までだけなぜがエラーが出ます。
どこが間違っているのでしょうか。
ソース
　　Dim cnt(245) As String
　　　　cnt(1) = "ああ"
　　　　cnt(2) = "いい"
　　　　cnt(3) = "うう"
　　　　　　　　：
　　　　　　　　：
　　　　cnt(101) = "ええ"
　　　　cnt(102) = "おお"

　　　　　　　　：
　　　　　　　　：
　　　　cnt(243) = "かか"
　　　　cnt(244) = "きき"
　　　　cnt(245) = "くく"
　　　　cnt(10) = "ここ"
エラー内容
代入ステートメントやループ ステートメントなどの非宣言ステートメントが、プロシージャの外側にあります。プロシージャの外側に記述できるのは宣言だけです。

または、プログラミング要素が、Dim や Const などの宣言キーワードを使用せずに宣言されています。

エラーメッセージ通りでは？プロシージャ(関数)の外側に代入ステートメント
(値を代入する式)は書けません。

    Dim cnt(245) As String ' 宣言 

    Private Sub Test       ' 関数はここから 

        cnt(1) = "ああ"    ' 代入式 

        cnt(2) = "いい"    ' 代入式 

        cnt(3) = "うう"    ' 代入式 

    End Sub                ' 関数はここまで 

なるほどそうだったんですか。
プロジャー内で代入していますが、これって他のプロジャーに影響というか、利用することはできるのでしょうか？

このサイト内で解説してくれてますから勉強しましょう。
特に初級講座は絶対必要な知識でこれらの知識なしではプログラムは書けません。

初級講座 
第８回　もっと変数
http://homepage1.nifty.com/rucio/main/dotnet/shokyu/standard8.htm

参考にします。
ありがとうございました

実際のプログラムは
○○ Sub
   ここに書く
End Sub
に書きます

るしぇさんの書かれている内容だと
フォーム全体でcnt変数が使えます。

引用します。
Private Sub Test       ' 関数はここから 
        Dim cnt(245) As String
        cnt(1) = "ああ"    ' 代入式 
        cnt(2) = "いい"    ' 代入式 
        cnt(3) = "うう"    ' 代入式 
End Sub                ' 関数はここまで 

これだと、Testサブ内でしかcnt変数を使用することができません。

Public cnt(245) As String ' 宣言 
Private Sub Test       ' 関数はここから 
        cnt(1) = "ああ"    ' 代入式 
        cnt(2) = "いい"    ' 代入式 
        cnt(3) = "うう"    ' 代入式 
End Sub                ' 関数はここまで

Publicで宣言すると別フォームでもcnt変数を使うことができます。

入門の本でも読んどけ。
場違いだぞ。おまえ。

option baseステートメントがない限り、配列の添え字のエラーもあるようです。
cnt（0）?cnt（244）まで使用できるだろうと考えています..

あら、ほんとね。
やだぁ。

無事解決いたしました。

解説してくださった方に感謝します。

' txtview Textbox = Muliline Is True

Option Explicit
Option Base 1
Dim strCnt(245) As String

Private Sub Form_Load()
    Dim strArray As Variant
    Dim intK As Integer
    intK = 1
    For Each strArray In strCnt
        strArray = intK & ". " + "Init"
        strCnt(intK) = strArray
        txtView = txtView + strCnt(intK) + vbCrLf
        intK = intK + 1
    Next strArray
End Sub

Private Sub cmdOk_Click()
'        cnt(1) = "ああ"
'        cnt(2) = "いい"
'        cnt(3) = "うう"
':
':
'        cnt(101) = "ええ"
'        cnt(102) = "おお"
'
':
':
'        cnt(243) = "かか"
'        cnt(244) = "きき"
'        cnt(245) = "くく"
'        cnt(10) = "ここ"
End Sub

>宣次郎
場違いはあんた。というか冷たいぜ。
こんな事書く暇があったらVisualBasic中学生のトップページアクセスカウンタの下の文章から見直せ。
ここのサイトはどう言う調べ方をすればいいかも分からない人が質問したりする掲示板でしょ。
コンボボックスに小学生を選択できるぐらいなのですから。
掲示板に書くネチケット入門ぐらい守ろうぜ。