C代码语言转VB代码的问题：

谁能帮我把这段代码转成Vb的代码，不胜感激，谢谢！
void CTempDlg::OnOK()
{
  UpdateData(1);
  int nlen=m_edit1.GetLength();
  char *username=m_edit1.GetBuffer(nlen);//定义一个新字符串username,长度为nlen，并将m_edit1中的字符串一个个放入到username数组中
  char strA[]="9012345678abcdeABCDEFGHIJKLMNfghijklmnUVWXYZxyzuvwopqrstOPQRST";
  int szint[18]={0x11,0x34,0xC9,0x23,0x75,0x18,0xD7,0xE2,0x12,0x35,0x29,0x2B,0xEC,0xB6,0x23,0x19};
  int ljq1=0,ljq2=0x25;//累加器
  int k=0,l=0,q=0;
  char *serile=new char[nlen];//定义一个新字符串数组serile,长度为nlen
  for (int i=0;i<strlen(username);ljq1=ljq1+5,i++)
  {
    for (int j=0;j<strlen(strA);j++)
    {
      if (username[i]==strA[j])
      {
//         k=0,l=0/*,q=szint[i+2]*/;
        l=szint[i];
        if (i>=16)
        {         
          l=i % 0x10;//求余       
          l=szint[l];
        }       
        k=ljq2;
        k=k*3;       
        l=l^k;
        l=l^ljq1;
        l=l+j;
        l=l % 0x3e;//余数
        serile[i]=strA[l];
        l=l+0x24d9;
        ljq2=l^ljq2;
        break;