Помогите пожалуйса написать прогу!!!

[Тореро]

Задан массив записей о местожительстве студентов, количество которых вводится по запросу программы. Структура информации: фамилия, имя, шифр группы, год рождения, местожительства (Москва или область). Сформировать массивы записей о студентах, живущих в Москве и в области. Поместить сформированные массивы в объекты типа ListВox. Напечатать все три массива в окне Debug.

[Тореро]

Кому не трудно напишите хотябы часть проги...Очень надо!!!

[Тореро]

Фактически у меня вся прога написана:

Private Type Студенты
Fam As String
Name As String
Grup As Integer
God As Integer
Place As String
Moscow As String
Oblast As String
End Type
Dim Mas() As Студенты, I As Integer, N As Integer
Private Sub UserForm_Activate()
N = InputBox("Введите количество записей")
ReDim Mas(1 To N)
For I = 1 To N
Mas(I).Fam = InputBox("Введите фамилию " & I & "-го студента") 'Ввод фамилии
Mas(I).Name = InputBox("Введите имя  " & I & "-го студента") 'Ввод имени
Mas(I).Grup = InputBox("Введите группу " & I & "-го студента") 'Ввод группы
Mas(I).God = InputBox("Введите дату рождения " & I & "-го студента") 'Ввод даты рождения
Mas(I).Place = InputBox("Введите место жительства " & I & "-го студента") 'Ввод места жительства
Next I
For I = 1 To N
If Mas(I).Place = "Мрсква" Then
List1.AddItem Mas(I).Place
End If
If Mas(I).Place = "Область" Then
List2.AddItem Mas(I).Place
End If
Next I
End Sub
Private Sub CommandButton1_Click()
For I = 1 To N
Фамилия: List1.AddItem Mas(I).Fam
Имя: List1.AddItem Mas(I).Name
Группа: List1.AddItem Mas(I).Grup
Год:  List1.AddItem Mas(I).God
Проживает: List1.AddItem Mas(I).Moscow
Next I
End Sub
Private Sub CommandButton2_Click()
For I = 1 To N
Фамилия: List2.AddItem Mas(I).Fam
Имя: List2.AddItem Mas(I).Name
Группа: List2.AddItem Mas(I).Grup
Год:  List2.AddItem Mas(I).God
Проживает: List2.AddItem Mas(I).Oblast
Next I
End Sub

Вся проблема в том что мне необходимо что бы в одном ListBox'е были те кто живет в Москве а в другом кто живет в Области,а у меня получается что записывются все!!!!Помогите...