Convert Vb 6.0 Code into Vb.Net

Question

Hi Guys,
 
Please convert below code from Vb 6.0 to Vb.Net.
Very Urgent .
 
Greatful yo those you provide solution .
 
strCardCode = Right("00000000" & Right("0000" & Hex(Val(txtFacilityCode.Text)), 4) & Right("0000" & Hex(i), 4), 8)
 

Thanks & Regards,
Tirupati Jogu