定数配列の書き方

何度も恐縮です・・・。

どうしてもArrayじゃないとダメなんでしょうか？
Collectionを使用すれば参照のみ可能です。
例えば・・・、

dim co as new collection
co.add "a"
co.add "b"
co.add "c"

co.item(index)で参照可能。
co.item(index)="xxx"代入不可。
Arrayじゃないし、１行でズバッとという訳には行きませんが、
メンバメソッド定義したりするよりは楽・・・。

今手元にVBの環境が無いので、コードサンプルはちょっと出せないんですが、VB6でもクラスを定義して、NEWで使うことはできたはずです。
この似非オブジェクト指向機能を使って、内部に配列を持ち、参照用のメソッド（Function）だけを定義したクラスを、プロジェクトメンバへ公開すれば、目的は達せられるかと思うんですが、これでは駄目ですかね。

どうしても配列として公開することがマストである場合は、どうしようもありませんが・・・。

> Ｃ言語の場合、次のようにしてできます。
> const char *a[] = {"A", "B"};

おっと。十数年もCをやってないので忘れていました。
そういえば、CからVBに転向したとき同様な疑問を持っていました。
VBで書けないので、冗長だけど関数にしています。

Public Function astrTest(byval n as integer) As String
select case n
case 0:
astrTest = "A"
case 1:
astrTest = "B"
case 2:
astrTest = "C"
end select
end function
　　　　　　

#2です。
配列の要素を定数として定義はできますが、配列そのものを書き換え不能にする事はできません。
JAVAと同じです・・・。
C/C++ならできますよね？（ポインタの受け渡しも含めて）
Rubyでも参照時のfreeze宣言ができます。
また.NETでも、Readonlyの構造体を宣言する事によって、同様の処理が可能です。
どうしてもVB6でやるなら、ユーザー定義構造体とゲッター用のメンバメソッドを作成すれば、同様の処理に近づくと思われます・・・。

配列の中の要素を書き換えるかどうかは、実装側の問題かと思いますが・・・。
あえて凍結させるメリット、必要性を感じられません・・・。

おそらく、どの言語でも出来ない。

残念ですが、VBでご希望のことをすることはできません。

Dim aaa
aaa = Array("a", "b", "c", "d", "e", "f", "g")

配列の定数定義は無理だったような気がします。
プロシージャ内で
Dim astrTest() As string = {"A", "B", "C"}
なら文法的にはOKだと思いますが質問者さんの
やりたいことと合ってるかは分かりません。。