ExcelVBAのRangeで複数指定

Excel 2003 のVBAで質問です。 以下のサンプルプログラムですが、最後の MsgBox で 1 になってしまいます。 3 が帰ってくるようにするには、Range でどのように指定すればよいのでしょうか。 宜しくお願いします。 〔Sheetの値〕 ┌─┬─┬─┬─┐ │＊│Ａ│Ｂ│Ｃ│ ├─┼─┼─┼─┤ │１│11│12│13│ ├─┼─┼─┼─┤ │２│21│22│23│ ├─┼─┼─┼─┤ │３│31│32│33│ ├─┼─┼─┼─┤ │４│41│42│43│ ├─┼─┼─┼─┤ │５│51│52│53│ └─┴─┴─┴─┘ 〔サンプルプログラム〕 Dim myArray1, myArray2 As Variant myArray1 = ThisWorkbook.ActiveSheet.Range("A1:C5") myArray2 = ThisWorkbook.ActiveSheet.Range("A1:A5,B1:B5,C1:C5") '指定が間違ってる？ MsgBox UBound(myArray1, 1) '結果 5 MsgBox UBound(myArray1, 2) '結果 3 MsgBox UBound(myArray2, 1) '結果 5 MsgBox UBound(myArray2, 2) '結果 1 → 3になって欲しい