программный код в VB 6.0

[Julia220992]

Помогите пожалуйста с программным кодом! VB 6.0
Нужно сделать программный код к заданию:

"Исходные данные: список 20 фамилий сотрудников. Определить номер сотрудника по заданной фамилии. Если такого нет в списке, напечатать: "В списке не значится" " Все на одной форме.

Мне дали пример, но я не могу сделать, т.к. там считали план работы предприятия в %, а как сделать по моему заданию?

Option Explicit

Dim plan() As Single, N As Byte
Private Sub Command1_Click()
Dim I As Byte
Randomize
N = InputBox(“N=”)
ReDim plan (1 To N) As Single
For I = 1 To N
Plan(i) = Rnd*100+50
List1.List(i-1) = Str(i) & “ ” & Str(Round(plan(i), 2)) & “%”
Next i
End Sub

Private Sub Command2_Click()
Dim I As Byte, k As Byte
K = 0
For I = 1 To N
If plan(i) < 100 Then
List2.List(k) = Str(i)
K = k+1
End If
Next i
If k = 0 Then
Text1.Text = “предприятие работало ритмично”
End If
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command4_Click()
Text1.Text = “”
List1.Clear
List2.Clear
End Sub

[was3110]

Где хранится список? (в программе, в отдельном файле, в БД)

[Julia220992]

Списка нет, фамилии нужно вводить на основе программного кода.

[was3110]

Можешь скачать с моего сайта. (мелкие задачки на VB и VBA). Контакты там же.

[Julia220992]

Я нашла эту задачку, но мне нужен сам программный код.