[RESOLVED]UBound giving subscript out of range

[mysticmusician]

I have an array
Dim A() As String

this is initially not initialized so I do this in a function (this function is called multiple tiles)
Max = Ubound(A)

If Max = 0 Then
Redim A(Max+1,Max+10) As String
End IF

This UBound gives me a error saying Subscript out of range. How can I check if a array is initialized previously or not. It works if the array had some value but fails first time.