alber si alguien me puede ayudar a pasar este codigo de lenguaje C a VB 6.0:

public static string EncriptPassRunReg(string pass)
        {
            string buf ="";
            Random rnd = new Random();
            string[] rell = { "KK", "cB", "0x", "z2", "A6" };
            for (int i = pass.Length; i > 0;i--)
            {
                buf += rell[rnd.Next(5)] + Convert.ToChar(Convert.ToInt16( pass[pass.Length - i]) + i);
            }
            return buf;