arrays - さまざまな入力量のケースを選択

Question

これは私がこれまでに持っているものです。

    Function myChoice(ByVal opt1 As String, ByVal opt2 As String, ByVal opt3 As String, ByVal opt4 As String)

    Dim choose As String
    Dim mynum As Integer

    Randomize()
    mynum = Int(Rnd() * 4 + 1)

    Select Case mynum
        Case 1
            choose = opt1
        Case 2
            choose = opt2
        Case 3
            choose = opt3
        Case 4
            choose = opt4
    End Select

    myChoice = choose

End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    MsgBox(myChoice("Red", "Orange", "Yellow", "Green"))

End Sub

私がやろうとしているのは、ByVal opt1 を文字列、ByVal op2 として持たないことです ..... 100 個の色がある場合、関数に 100 個のオプションを持たせ、すべてを入力せずに 100 個の「ケース」イベントを作成するにはどうすればよいですか?の？

ループとおそらく配列が必要かもしれませんが、それ以外は困惑しています。

ありがとう。