VB能不能处理二进制的位移问题？

谁能帮我翻译成VB代码呢？
BOOL WINAPI ABC(  
PUCHAR oADC )
{
UCHAR cArr[ 256 ];
ULONG i;
for ( i = 0; i < 12; i ++ ) {
cArr[ i ] = 0x00;
}
cArr[ i++ ] = 0x04; 
RecosAPIS( i, cArr );  //专用函数，获得二进制数据
*sStr = 0;
for ( i = 0; i < 8; i ++ ) {  //位移处理
*sStr = ( *sStr << 1 ) | ( cArr[ i + 1 ] >> 7 );  
}
}