[vb .net]Algorytmy + struktury danych

Witam potrzebuje przetłumaczycz ten kod na kod w visualu basicu net. 2005
Chodzi mi o programik w visualu ktory znajduje i wypisuje liczyby doskonałe w przedziale AB
Czy mógłby mi ktos pomóc z tym. Potrzebuje też do tego schemat blokowy. Z góry wielkie dzieki

Procedure Zad3;
{3. program ktory znajduje i wypisuje wszystkie liczby doskonala od 1 do 1000}
Var
Suma,Liczba,Mozliwosci:LongInt;
Begin
writeln('Liczby doskonale od 1 do 1000:');
For Liczba:=1 to 1000 do
Begin
Suma:=0;{Poczatkowa wartosc sumy=0}
Mozliwosci:=0; {ustala wstepna wartosc mozliwosci.. dzielenie przez wszystkie liczby od 1
do 1 mniej niz podana liczba}
While Mozliwosci< Liczba-1 do
Begin
Inc(Mozliwosci); {zwiekszenie zmiennej mozliwosci o 1}
if Liczba mod Mozliwosci=0 then
Suma:=Suma+Mozliwosci;{dodajemy dzielniki}
end;
If Suma=Liczba then write(Liczba,',');
End;
writeln('wcisnij < Enter> , aby kontynuowac...');
readln;
End;

Hm VB .net raczej mi obcy ale schemacikiem służę
Ten akurat sprawdza zadaną liczbę, ale myślę że nie bedzie problemu z dodaniem przedziału liczb.

Dzieki