Column count of Array

Sub ColumnCountofArray()
    Dim strArr()
    strArr = Range("A1:D10")
    MsgBox "Column of StrArr =" & UBound(strArr, 2)
End Sub