How Do I Write This Code In Vb6, C# , Vb.Net ?

unsigned char Bcc;
unsigned char BerekenBcc( char *str, int len)
{
	inti,dat,f;

	for(Bcc=0;len,len--)
	{

		dat=*str++;
		data=data & 0xff;

		for(i=0;i<8;++i)
		{
			f=i & (data^Bcc);
			Bcc=(unsigned char) (Bcc >> 1);
			data= data >>1;
			if(f)Bcc=(unsigned char) (Bcc0x8c);
		}
	}
	return(Bcc);
}