请大家不吝赐教
VB中如何写COM加载项的代码
此代码如何修改（以便调用VB中代码）
Private Sub XL_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range) '激活单元格事件
    xlApp.OnKey "~", "HCJ" '大键盘回车
    xlApp.OnKey "{enter}", "HCJ" '小键盘回车
End Sub