この事でしょうか?Private Sub Command1_Click() Dim arr_str(1 To 50) As String Debug.Print LBound(arr_str), UBound(arr_str)End Sub上記でよければ、ここの「VB簡易リファレンス」にも目を通しておいて下さい。