Если не с кем поговорить сделай с кем можно!

Здравствуйте и это опять я , Megustan. Сейчас я расскажу вам как сделать подобного "робота".Добавляем на форму  1 кнопку (назови ее как хочешь) и 2 текстбокса. во втором текст боксе пишем Enabled= False . вот что должно получиться.:

Текстовое поле1 я назвал t1.

Далее в кнопку пишем:

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
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 "Я родился 4 ноября 2012 года.Вот и считай", 32
End If
If t1.Text = "Чем ты питаешься?" Then
MsgBox "Электричеством", 32
End If
If t1.Text = "Какая музыка тебе нравится?" Then
MsgBox "Мне нравится та музыка,которая нравится тебе", 32
End If

End Sub

Я эту фигню делал быстро и не задумываясь. Можете дописать имен , можете написать к нему еще вопросы все на ваше усмотрение.