Upper Bound Of Array

[shakti5385]

Hi all
How to found the upper bound of the array without using the redim value
Check the code error in the command 2 click then how to solve this error without using the value of the text1.text

Dim A() As Integer
Private Sub Command1_Click()
Dim I As Integer
ReDim A(Val(Text1.Text))
For I = 0 To Text1.Text
    A(I) = I * 1
Next
End Sub
Private Sub Command2_Click()
'Without Using the value of Text1.Text How we founnd the UpperBound Of Array A
'I Want
For I = 0 To [B]A.ubound 'Error Here[/B] :confused: 
    MsgBox A(I)
Next
End Sub

Hope you all understand the problem I have a lot of array and I want to know the ubound value at run time without saving the other value
Thanks