Dim x(10) Dim xy(10,20) Dim xyz(10,20,30) WScript.Echo "UBound(x)+1 = " & UBound(x)+1 WScript.Echo "UBound(xy, 1)+1 = " & UBound(xy, 1)+1 WScript.Echo "Ubound(xy, 2)+1 = " & Ubound(xy, 2)+1 WScript.Echo "UBound(xyz, 1)+1 = " & UBound(xyz, 1)+1 WScript.Echo "Ubound(xyz, 2)+1 = " & Ubound(xyz, 2)+1 WScript.Echo "UBound(xyz, 3)+1 = " & UBound(xyz, 3)+1