请各位帮助把一下C代码改成VB代码，谢谢！！！

Question

CString strMsg; //long lBitTest = 1587238;
long lBitTest = 0x44448911;//test number
unsigned char *p;
p = (unsigned char*)&lBitTest;
if ( (((*(p+1)) >> 4) & 0x0F) >= 8)
{
(*(p+2)) <<= 1; //第三个字节加倍
(*(p+2)) &= 0xFE;
(*(p+3)) <<= 1; //第四个字节加倍
(*(p+3)) &= 0xFE;
}
if ( ((*(p+1)) & 0x0F) >= 9) //第二个字节低位>=9时9以上X2
{
AfxMessageBox("不明白什么意思？？");
//你可以在这里实现你的意图！
}
strMsg.Format("%x,%x,%x,%x",*p,*(p+1),*(p+2),*(p+3));
AfxMessageBox(strMsg); 
dim strmsg as string
dim lbittest as long
lbittest=&h44448911
dim p( 0 to 3 ) as byte
dim i as integer
for i = 0 to 3
p( i ) = ( lbittest \ ( 256 ^ i ) ) mod 256
next i
if ( p( 1 ) \ 16 mod 16 ) >= 8 then
p( 2 ) = p( 2 ) * 2
p( 2 ) = p( 2 ) and &hfe
p( 3 ) = p( 3 ) * 2
p( 3 ) = p( 3 ) and &hfe
end if
if ( p( 1 ) \ 16 mod 16 ) >= 9 then
msg "不明白什么意思？？"
end ifmsgbox hex( p ( 0 ) ),.....