Пожалуйста, помогите!!! Нужно срочно написать программу в VB. Задание тут:

Private Sub Command1_Click()
h = Val(Text1.Text)
If h > 0 Then
Command2.Enabled = True
MSHFlexGrid1.Rows = h + 1
For i = 0 To 6
Label3(i).Visible = False
Next i
Randomize
For i = 1 To h
MSHFlexGrid1.Row = i
MSHFlexGrid1.CellBackColor = vbWhite
MSHFlexGrid1.Col = 0
MSHFlexGrid1.Text = i
MSHFlexGrid1.Col = 1
MSHFlexGrid1.Text = Int(Rnd(50000) * 50000)
Next i
End If
End Sub
Private Sub Command2_Click()
ReDim M(1000)
ReDim S(1000)
MSHFlexGrid1.Row = 1
For i = 1 To MSHFlexGrid1.Rows - 1
MSHFlexGrid1.Row = i
If Val(MSHFlexGrid1.Text) > 10000 Then
MSHFlexGrid1.CellBackColor = vbYellow
j = j + 1
M(j) = Val(MSHFlexGrid1.Text)
S(j) = i
End If
Next i
Min = 1
For i = 2 To j
If M(i) < M(Min) Then Min = i
Next i
For i = 0 To 6
Label3(i).Visible = True
Next i
Label3(0).Caption = "Наименьший из окладов, который больше 10000 =" + Str(M(Min)) + Chr(13) + Chr(10) + "находится на " + Str(S(Min)) + " строке. "
MSHFlexGrid1.Row = S(Min)
MSHFlexGrid1.CellBackColor = vbRed
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 112 Then Command1_Click
If KeyCode = 113 Then Command2_Click
End Sub
Private Sub Form_Load()
Caption = App.EXEName
MSHFlexGrid1.Row = 0
MSHFlexGrid1.Col = 0
MSHFlexGrid1.Text = "№ строки"
MSHFlexGrid1.Col = 1
MSHFlexGrid1.Text = "Оклад"
End Sub
Private Sub Form_Resize()
MSHFlexGrid1.Height = Height * 0.85
End Sub

стучи в агент

vb учил давно сори, на c# вот набросал, мб пригодится:

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;

namespace ConsoleApplication1
{
class Program
{
static void Main(string[] args)
{
int x = 0;
double min = double.MaxValue;
Console.WriteLine("введите количество элементов списка");
x = int.Parse(Console.ReadLine());
double[] zarplaty = new double[x];
Console.WriteLine("введите значения зарплат");
for (int i = 0; i < x; i++)
{
zarplaty = double.Parse(Console.ReadLine());
}
foreach (double y in zarplaty)
{
if (y > 10000)
{
double yach = y;
if (yach < min)
{
min = yach;
}

}
}
Console.WriteLine("минимальная зарплата, из тех что больше 10000: {0}", min);
Console.ReadLine();
}
}
}