Private Sub CommandButton1_Click()
Dim temp_arr() As Integer
ReDim temp_arr(0 To 2, 0 To 3) As Integer
'MsgBox temp_arr.Length
'MsgBox "asdf"
'MsgBox UBound(temp_arr)
'MsgBox LBound(temp_arr)
MsgBox UBound(temp_arr, 2)
End Sub
UBound Function vba help
https://msdn.microsoft.com/ko-kr/library/95b8f22f(v=vs.90).aspx
