vb6.0 制作excel2007加载项过程中遇到单元格区域选择问题，求教！

在学习制作excel2007加载项过程中，想通过手动选择单元格区域，将相关值赋予数组，遇到如下问题：
Public Sub test1(ByVal control As IRibbonControl)
    Set rng = xlApp.InputBox("请选择单元格区域：", "温馨提示", , , , , 8)   '弹出选择窗口后，在工作表中可以选择单元格，但选择的结果没有返回，也不报错(不知道什么原因)。
    Set rng = Application.InputBox("请输入结果输出单元格:", Type:=8)    '弹出选择窗口后，在工作表中选择不了单元格，工作薄没有焦点。
    arr = rng
    ********
End Sub

请教，谢谢！

[此贴子已经被作者于2021-12-20 21:12编辑过]