کمک - تبدیل کد دلفی به ویژوال بیسیک

[arman_Delta2002]

سلام کسی هست این کد درو برام به ویژوال بیسک تبدیل کنه کلی آدم ممنونش میشن

function TForm1.CheckCodeMeli(CodeMeli: string): boolean;
var
ChkSum, i, j, Sum: integer;
begin
sum := 0;
ChkSum := strtoint(copy(codemeli, 10, 1));

for i := 1 to 9 do
begin
if CodeMeli[i] <> codemeli[i + 1] then
begin

for j := 2 to 10 do
sum := sum + strtoint(copy(codemeli, 11 - j, 1)) * j;

if (Sum mod 11) >= 2 then
Result := ((11 - (Sum mod 11)) = ChkSum)
else
Result := (((Sum mod 11)) = ChkSum);

Break
end
else
Result := false;
end;

end;

[xxxxx_xxxxx]

سلام
مطمئنيد اين تابع براي چك كردن صحت كدملي هست؟
لينك زير رو نگاه كنيد(VB):
فرمول تشخيص صحت كد ملي (http://barnamenevis.org/forum/showthread.php?t=154341)

[Felony]

مطمئنيد اين تابع براي چك كردن صحت كدملي هست؟
بله برای چک کردن کد ملی هستش ، دقیقا همون جوری که تو پستی که دادید گفته شده در این کدعمل شده و به جای اون 2 تا if خیلی طولانی از 2 تا حلقه استفاده شده ...

اگر تبدیل شده ی این کد را به VB میخواهید من تا بعد از ظهر براتون قرار میدم ...