Форма,Listbox

[Vasya25]

Добрый вечер.Пишу программу,застрял на месте,просто не понимаю.Может чем сможете помочь.

"Создать пользовательскую форму,на которой расположить
* 2 поля для ввода чисел
*Listbox,содержащий типы операций >,<,=,>_,<_,не равно
*Listbox с историей вычислений
*Поле для вывода чисел,куда будут выводиться результат в зависимости от выбранной операции
*обеспечить возможность считывания наборов чисел Listbox в поля ввода
*Предусмотреть защиту от некорректного ввода чисел с блокированием кнопки ОК в этом случае и выводом окна с графическим предупреждением об ошибке(любой предупреждающий рисунок)

я создал форму,listbox,заполнил его.А как дальше не понимаю
не грузится на сайт почему то эксель с макросами
Вот код:

Private Sub ListBoxFear()
Dim str(5) As String, strOper(5) As String, str1 As String

str(0) = ">"
str(1) = "<"
str(2) = "="
str(3) = ">="
str(4) = "<="
str(5) = Chr(177)


idcount = 0

With UserForm1.ListBox1
.Clear
.List = str
.Enabled = True
End With
UserForm1.Show

'idcount = 0
'ListBox1.List = str1

'Private Sub TextBox1_Change()
'Dim str1 As Integer
'TextBox.Value = str1

End Sub

Private Sub ListBox1_Click()

End Sub

Private Sub TextBox1_Change()
If IsNumeric(TextBox1.Text) = False Then
TextBox1.Text = ""
End If
End Sub

Private Sub TextBox2_Change()
If IsNumeric(TextBox2.Text) = False Then
texbox2.Text = ""
End If
End Sub

Private Sub UserForm_Click()

End Sub




Private Sub UserForm_Initialize()
With UserForm1
.TextBox1.Value = "12"

.TextBox1.Font.Bold = True
End With
ListBoxFear
End Sub