求C++大神和VB大神帮小弟我把转换下代码:c++ to vb

求C++大神和VB大神帮我把转换下代码:c++ to vb
在C++板块发了个帖子结果没人回复,http://topic.csdn.net/u/20111124/11/61306a2b-e58e-4194-ad3f-0ab5f0ff4c33.html?seed=522843354&r=76639017#r_76639017
只好发到这边来了,

C/C++ code

/*-------------------------------------------*/// Summary：判断校验位是否正确// Parameter://    (char*)buf -> 报文段(在0ah与0dh之间的片段)// Return:  SUM_OK(0): The sum check is succeed.//    SUM_ERR(1):The sum check is fail./*-------------------------------------------*/int CSocketManager::SumCheck(unsigned char *buf) {    unsigned char sum = 0;    unsigned char rx_sum;    int    i;    int    len = strlen((char*)buf);    rx_sum = ((buf[len-2] << 4) & 0xf0) + (buf[len-1] & 0x0f);    for( i = 0 ; i < len-2 ; i++)    {        sum += buf[i];    }    if(sum != rx_sum)    return SUM_ERR;    return    SUM_OK;}