Пример не удачной реализации диалога с компьтером - VB

Формулировка задачи:

Private Sub CommandButton1_Click()
If t1.Text = "Привет" Then
MsgBox "Добро пожаловать в меня", 32
End If
If t1.Text = "Как дела?" Then
MsgBox "Все норм пока", 32
End If
If t1.Text = "Как тебя зовут?" Then
MsgBox "Дрюн меня зовут и ненадо ржать!", 32
End If
If t1.Text = "Какого ты пола?" Then
MsgBox "Я компьютерная программа, следовательно у меня не может быть никакого пола.Но я могу быть тем или той кого ты захочешь))", 32
End If
If t1.Text = "" Then
MsgBox "Моя очередь задавать вопросы.Ты согласен?", 32
End If
If t1.Text = "Нет" Then
MsgBox "Ну что так грубо?Я думал мыы друзья.В общем пиши -ДА и продолжим разговор", 32
End If
If t1.Text = "Да" Then
MsgBox "А как тебя зовут.Введи пожалуйста полное имя.", 32
End If
If t1.Text = "Петр" Then
MsgBox "Ага...Все таки парень.", 32
End If
If t1.Text = "Борис" Then
MsgBox "Ага... все таки парень. ", 32
End If
If t1.Text = "Илья" Then
MsgBox "Ага... все таки парень.", 32
End If
If t1.Text = "Полина" Then
MsgBox "Сюда вошла деваха)Как приятно", 32
End If
If t1.Text = "Маша" Then
MsgBox "Сюда вошла деваха)Как приятно", 32
End If
If t1.Text = "Алексей" Then
MsgBox "Приятно познакомиться", 32
End If
If t1.Text = "Татьяна" Then
MsgBox "Приятно познакомиться", 32
End If
If t1.Text = "Софья" Then
MsgBox "Сюда вошла деваха)Как приятно", 32
End If
If t1.Text = "Александр" Then
MsgBox "Самое популярное имя. Ну что ж, привет", 32
End If
If t1.Text = "Александра" Then
MsgBox "Сюда вошла деваха)Как приятно", 32
End If

Взято тут: http://vbbook.ru/shitcode/1351956488/ и тут: http://govnokod.ru/

Решение задачи: «Пример не удачной реализации диалога с компьтером»

textual
                            Листинг программы 
                        

                            If t1.Text = "Откуда ты взялся?" Then
MsgBox "Я родился под руками программиста- идиота", 32
End If
                        