convert these C++ codes to VB .NET ?

[hendyhanusin]

Dear Friend,

How to convert these codes into VB .NET ?

Tks,
hendy

===============================

BYTE   cmd[NumMsg][7]={{0x00,0xA4,0x00,0x00,0x02,0x02,0x47},
                                       {0x00,0xA4,0x02,0x00,0x02,0x01,0x02},
                                       {0x00,0xB0,0x00,0x00,0xff,0x00,0x00}};

BYTE	DataLength, pData[10], ResponseDataLength;
BYTE	pResponseData[100];
INT16	TimeOut=50, i, CardFrameSize;
char	pdata[500];
char	*ATS_ATQB;

	   CardFrameSize=0;
	   pdata[0]='\0';
	   ResponseDataLength=0;

if (PICC_RATS(rHandle, 4, &ResponseDataLength, pResponseData)>=0) {
	CardFrameSize=pResponseData[1]&0x0f;
}

for (i=0; i<ResponseDataLength; i++) {
	StrMsg.Format(" %02X", pResponseData[i]);
	strcat(pdata,StrMsg);
}

ACR120_API INT16 AC_DECL PICC_RATS(INT16 rHandle, UINT8 FSDI, UINT8 *atslen, UINT8 *ats);