请大侠帮小弟我看看这段简单的C#如何转换成VB.NET代码

请大侠帮我看看这段简单的C#怎么转换成VB.NET代码
public   A[]   GetA()
        {
                IList   alist   =   new   ArrayList();
                A   a;
             
                for   (int   i   =   0;   i   <   100;   i++)
                {
                        a   =   new   A();
                        a.A1   =   "x ";
                        a.A2   =   1;
                        alist.Add(a);
                }
                A[]   aarray   =   new   A[alist.Count];
                for   (int   i   =   0;   i   <   aarray.Length;   i++)
                {
                        aarray[i]   =   alist[i]   as   A;
                }
                return   aarray;
        }
' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
'下面是类A   这个我已经转换成VB的，但是上面的代码我不知道怎么转换！
public   class   A
{
public   A()
{
//
//   TODO:   在此处添加构造函数逻辑
//
}

        private   string   a1;
        private   int   a2;

        public   string   A1
        {
                get   {   return   a1;   }
                set   {   a1   =   value;   }
        }

        public   int   A2
        {
                get   {   return   a2;   }
                set   {   a2   =   value;   }
        }
       
       
}

------解决方案--------------------
sorry，j写成i了，改正：

Public Function GetA() As A()
Dim alist As IList = New ArrayList
Dim aa As A
For i As Integer = 0 To 99
aa = New A
aa.A1 = "x "
aa.A2 = 1
alist.Add(aa)
Next
Dim aarray() As A
ReDim aarray(alist.Count)