Dim cnt(245) As String ' 宣言 

    Private Sub Test       ' 関数はここから 

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

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

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

    End Sub                ' 関数はここまで