convertir codigo radixsort de c++ a visual basic +6

Hola a todos.

Mi nombre es Rosely.

En esta ocasión vengo a pedirles su ayuda.

La maestra nos pidió un los programas de métodos de ordenación y búsqueda en la materia de estructuras de datos.

No se programar mucho en c o c++, y se me dificulta pasarlo a visual basic.

Este es el código en c:

#include <stdio.h>
#include<conio.h>
#define MAX 5
#define SHOWPASS

void print(int *a,int n)
{
int i;
for(i=0;i<n;i++)
printf("%dt",a);
}

void radixsort(int *a,int n)
{
int i,b[MAX],m=0,exp=1;
for(i=0;i<n;i++)
{
if(a>m)
m=a;
}

while(m/exp>0)
{
int bucket[10]={0};
for(i=0;i<n;i++)
bucket[a/exp%10]++;
for(i=1;i<10;i++)
bucket+=bucket[i-1];
for(i=n-1;i>=0;i--)
b[--bucket[a/exp%10]]=a;
for(i=0;i<n;i++)
a=b;
exp*=10;

#ifdef SHOWPASS
printf("nPASS : ";
print(a,n);
#endif
}
}


int main()
{
int arr[MAX];
int i,n;

printf("Enter total elements (n < %d) : ",MAX);
scanf("%d",&n);

printf("Enter %d Elements : ",n);
for(i=0;i<n;i++)
scanf("%d",&arr);


printf("nARRAY : ";
print(&arr[0],n);

radixsort(&arr[0],n);

printf("nSORTED : ";
print(&arr[0],n);
printf("n";
return 0;

}

y hasta ahora este es el codigo que tengo en visual basic.


Const MAX As Integer = 5
Dim d As Integer
Private Sub Form_Load()
Dim arr(MAX) As Integer
Dim i, n As Integer
n = 4
For i = 1 To n
arr(i) = InputBox("Ingrese un valor"
List1.AddItem arr(i)
Next

Call radixsort(arr, n)

Call printx(arr, n)



End Sub


Sub radixsort(a() As Integer, n As Integer)



Dim i, b(MAX), m, exp As Integer
m = 0
exp = 1
For i = 1 To n
If (a(i) > m) Then
m = a(i)
End If
Next

While (m / exp > 0)
Dim bucket(10) As Integer
bucket(10) = 0
For i = 0 To n
bucket(i) = a(i) / exp Mod 10
'b(a(i) / exp Mod 10) = (a(i) / exp Mod 10) + 1
'bucket(a(i) / exp Mod 10) = bucket(a(i) / exp Mod 10) + 1
Next
For i = 1 To 9
bucket(i) = bucket(i) + bucket(i - 1)
Next
For i = n - 1 To 0
bucket(-1) = a(i)
' b(bucket(a(i) / exp Mod 10)) = a(i)
Next
For i = 0 To n
a(i) = b(i)
Next
exp = 10

Wend
Call printx(a, n)
End Sub
Sub printx(a() As Integer, n As Integer)

Dim i As Integer
For i = 0 To n
List2.AddItem a(i)
Next
End Sub

Mi problema esta en el while y los no se como interpretarlos, se que son incrementos pero no se como traducirlos en visual basic, por favor ayudenme, estoy bloqueda.




De antemano les agradezco su ayuda.