レス遅くなりました。
>>540と>>541でご指南頂いた方法をそれぞれ試していました。
結果両方ともうまく動きました。
どちらの方法を使うかは、またこれからそれぞれの方法のメリット･デメリットを考えながら
決めていきます。
本当に有難う御座いました。
(必要ないと思いますが下記に>>541の 1)の関数を載せておきます）
Private Function chkArrayLen(sAry() As String) As Boolean
On Error GoTo Err_Process
Dim Tmp As Integer

chkArrayLen = False
Tmp = UBound(sAry)
chkArrayLen = True

Err_Process:
End Function