SoloCodigo

Tengo este Codigo en Visual Basic 6, Lo que hace este programa es un tipo chatbot, pero mas bien con respuestas automaticas.

Ingresas "Hola" en text1 y en text2 aparece este mismo "hola", mas una respuesta como "que tal!" por ejemplo como se muestra en el codigo....

lo que quiero saber es como hacer para que me pueda responder de diferentes maneras la misma pregunta, como ejemplo pongo "hola" y me responde "hola" la primera vez y si le vuelvo poner hola que me conteste otra cosa diferente como "que tal"

Tambien como hacer para que el texto no diferencie entre mayusculas y minusculas...

Y como pasar el texto de text1 a tex2 con solo dar click en enter sin dar clicl en el boton enviar.


CODIGO:
______________________________________________________________________________________

Private Sub Command1_Click()
    If Trim(Text1.Text) = "" Then Exit Sub
    Agrego_Texto "Usuario", Text1.Text
    Envio_Texto
    Text1.Text = ""
    Text1.SetFocus
   
End Sub

__________________________________________________________________________

Sub Agrego_Texto(QUIEN As String, TXT As String)
    If Text2.Text = "" Then
       Text2.Text = "<" & QUIEN & "> " & TXT
       Else
        Text2.Text = Text2.Text & vbCrLf & "<" & QUIEN & "> " & TXT
    End If
End Sub
__________________________________________________________________________

Sub Envio_Texto()

If Text1.Text = "Hola" Then
Agrego_Texto "Ciclope", "Que tal!"
End If
 
 If Text1.Text = "Como estas" Then
 Agrego_Texto "Ciclope", "Bien!"
 End If
 
  If Text1.Text = "Quien te creo?" Then
 Agrego_Texto "Ciclope", "Jaaziel Peña en un proyecto de UMM"
 End If
 
End Sub

___________________________________________________________________