vb调用 vc编写activex控件，传入字符数组有关问题

Private Sub test12_Click()
    Dim szName As String
    Dim iRet As Integer
    Dim MyVar As Variant
    ReDim MyVar(0 To 7) As Byte
            
    MyVar(0) = &HA0
    MyVar(1) = &H0
    MyVar(2) = &H0
    MyVar(3) = &H2
    MyVar(4) = &H41
    MyVar(5) = &H0
    MyVar(6) = &H0
    MyVar(7) = &H0
    
    'szName = "A0 00 00 02 41 00 00 00"
    'MyArr = VarPtr(HexStr2Byte(szName))
    iRet = ICBCControl1.SelectbyName(MyVar)   //-->调用OCX方法 
    
    MsgBox (iRet)
End Sub

short CICBCControlCtrl::SelectbyName(const VARIANT FAR& ID)  // <--
{
    // TODO: Add your dispatch handler code here
    
    BYTE abyID[MAXTMP];
    short cbID = MAXTMP;
    if ( !VARIANTToBinary(ID, abyID, cbID) )    //--> 调用,实现如下
        return _ERR_TCHANGE_IN;
//.......
}

//将 variant中safearray 转换为数组。
BOOL VARIANTToBinary(VARIANT InArray, BYTE* pbuf, short& len)  //<-- 实现
{
    if ( (VT_BYREF | VT_UI1) != InArray.vt  )   //每次在该处断掉，断点InArray.vt 为 VT_VARIANT|VT_BYREF
        return FALSE;
    if ( 1 != InArray.parray->cDims )
        return FALSE;
    
    //ATLASSERT( VT_UI1 == InputArray.parray->)
    BYTE *pValue = NULL;
    SafeArrayAccessData(InArray.parray,(void**)&pValue);
    if ( pValue == NULL)
        return FALSE;
    int count = InArray.parray->rgsabound[0].cElements;
    memcpy(pbuf, pValue, count);
    len = count;
    SafeArrayUnaccessData(InArray.parray);
    return TRUE;
}