Sub Main Dim A(-1 To 3,2 To 6) Debug.Print LBound(A) '-1 Debug.Print LBound(A,1) '-1 Debug.Print LBound(A,2) ' 2 End Sub